В программе объявлены переменные: a,b,c: integer;

ая буква согласная)/ 1. ааратат 2. водоканал 3. информатика 4. логика 5. сравнением 6. противостояние

1. написать алгоритм нахождения максимального среди 4 целых чисел.
2. написать алгоритм проверки: имеются ли среди трех целых чисел два положительных значения.
3. написать алгоритм проверки: лежит ли точка с координатами х;у в первой координатной четверти?

Вкладчик положил в банк 1500 у. е. ежегодно сумма вклада увеличивается на 3%. Через сколько лет сумма вклада составит 3000 у. е.

a<5 do

writeln(a);

a:=a+1;

End.

2)Program z2;

var a,s:integer;

begin

a:=1; s:=0;

while a<10 do begin

s:=s+a/2;

end;

writeln(s);

end.

Фибоначчи превышающие 1000.
надо сотавть программу начиная со слов
Dim a as integer...

x-1, если _ x ≤ -1
y= x, если _ -1 < x ≤ 1
x+1, если _ x > 1
Аргумент Х меняется в интервале от -5 до 5 с шагом 0,2.
PS: где у=..., там скобка на три уравнения. Помогите, очень нужно!

что появится на экране в результате выполнения программы. Для переменной S ввести строку - 'аб2в457где245*ж'

Program z2;

uses crt;

var s:string;

k,sum,i,n:integer;

begin

readln(s);

i:=1;

repeat

val(s[i],n,k);

i:=i+2;

sum:=sum+n;

writeln(n);

until i>length(s);

writeln(sum);

readkey;

end.

2) Дано предложение. Удалить из него все буквы с