100 БАЛЛОВ!! Pascal.
1. Составьте программу, удваивающую значение переменной x, если x>7
2. Составьте программу, которая проверяет, чтобы два числа, введенные с клавиатуры были различными. Т. е.если числа равны, то вывести сообщение “Ошибка”.
3.Вводятся три разных числа. Найти, какое из них является средним (больше одного, но меньше другого).
4.Определить четверть координатной плоскости, которой принадлежит точка. Координаты точки ввести с клавиатуры.
5.С клавиатуры вводятся два числа. Вычислить частное и остаток от деления большего из них на меньшее.
6.Даны два действительных числа (вводятся с клавиатуры). Меньшее из них замените полусуммой этих чисел, а большее произведением.

​

Объяснение:

- Папа с домашкой, надо вставить пропущенные буквы.

- Давай. "...елеведущая ...анала НТВ." Да всё правильно, не надо ничего вставлять.

1)var a: integer;

begin

readln(a);

if (a>5) then a:=a*2;

writeln(a);

readln();

end.

сори знаю только первое

Объяснение:

составим таблицу:

                        | молоко  | лимонад | квас | вода

бутылка |       -          |              +          |      -      |      -

стакан    |          -          |            -           |      -      |      +

кувшин  |          +          |            -            |      -     |      -

банка      |          -            |            -           |      +    |        -

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.