Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.

0 0

3 года назад

На блок-схеме представлен алгоритм ввода массива из 10 целых чисел с помощью цикла с постусловием. Запишите соответствующую прог

Meriz

Var a:array[1..10] of integer;
i:integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.

0 0

4 года назад

Ребят, очень срочно.. Надо закодировать информацию любым способом (не менее 3х слов)

To Mannaz

Можно использовать шифр Атбаш или шифр Цезаря, например

0 0

4 года назад

Прочитать ещё 2 ответа