Program tablisa_umnogenya;
var i,x,a: integer;
begin
read(x);
a:=0;
for i:=1 to 10 do
begin
a:=a+x;
writeln(a);
end;<span>
end.
эта программа на Паскаль, на оценку среднюю, тк считаю что на оценку повыше, недостаточно понятное оформление, если на оценку повыше, то заменить строку "</span>writeln(a); " на "writeln(x,'*',i,'=',a);"

0 0

4 года назад

Напишите программу, которая вычисляет сумму первых десяти натуральных чисел. Используйте оператор for.

byba

Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.

Но проще всего это считать без циклов - одной строкой:
Begin
Writeln((10+1)*10 div 2);
end.

0 0

4 года назад

УМОЛЯЮ ПОМОГИТЕЕЕЕЕЕЕЕЕЕЕПомогите я вас очень прошу желательно точно по заданию

walc

Смотри одинарная стрелка(в одну сторону) это устройства вывода информации(от компьютера), ввод (к компьютеру), а двойная это как и ввод, так и вывод информации. Одинарные стрелки(к компьютеру): сканер, веб-камера, микрофон, мышь, джойстик, тачка Одинарные стрелки(от компьютера): колонки, монитор, принтер, наушники, встроенный динамик Двойные стрелки: модем, дисковод

0 0

4 года назад

Сколько секунд потребуется модему, передающему сообщения со скоростью 128000 бит/с, чтобы передать сообщение объёмом 261 Кбайт?

Алексей - Сергеевич

256 Кб = 2097152 бита
2097152/128000~16,384 секунд => 17 секунд

0 0

4 года назад

Z:=24; z:=Z/6Z=Решите пожалуйста​

Z:=24; z:=Z/6Z=Решите пожалуйста