Программист пишет программу, создает что-то
Пользователь просто использует
Основное предназначение - сбор, хранение и обработка информации
Var
x,y:real;
i:integer;
begin
y:=0;
Write('x= ');
Read(x);
for i:=1 to 11 do y:=i+y*x;
Writeln('Y= ',y)
end.
<u>Пример</u>
x=3.6
Y= 700939.22164521
Вопрос 1 - 0
Вопрос 2 - 1
Вопрос 3 - 0
Вопрос 4 - 5
Вопрос 5 - 0
Вопрос 6 - 4
Вопрос 7 - 3
Вопрос 8 - 12
Вопрос 9 - 0 mod 5 , 7 mod 7 , 3 div 5.
Вопрос 10 - 1 mod 3 , 5 div 3 , 9 mod 4.
Бегемот - гиппопотам..влажный - мокрый.. идти - шагать
это слова, которые имеют одно и то же значение
Program obnulenie;
var a:array[1..100,1..100] of integer;
i,j,n:integer;
begin
writeln('Введите размер квадратной матрицы:');
readln(n);
writeln('Введите матрицу:');
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]);
if j>i then a[i,j]:=0;
end;
writeln('Измененная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
<span>end.</span>