var sum, i: integer; begin sum := 0; for i := 1 to 100 do sum := sum + i; writeln('Сумма всех чисел от 1 до 100: ', sum); end.
№2
var p, i: integer; begin p := 1; for i := 1 to 10 do p := p * i; writeln('Произведение всех чисел от 1 до 10: ', p); end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer; begin i := 3; max := 100; for k := 1 to max do begin A := A + i;write( A, ' '); end; end.
№4
var sum, x: real; a: array[1..10] of real; i: integer; begin sum := 0; for i := 1 to 10 do begin write('Введите ', i, ' число: '); readln(a[i]); sum := sum + a[i]; end;
Барабан - подача сигнала звуком, костер - передача информации (сигнала опасности) через дым от костра, марка - приклеивалась на конверт, передача бумажным письмом, сумка с письмами - тоже бумажные письма, сумки носили почтальоны, радио - передача радиоволнами звуком одинаковой информации для всех, телефон - передача по проводам индивидуальной информации, телевизор - передача радиоволнами изображения, одинаково для всех, спутник и антена - передача информации через космос, радиоволнами, интернет - передача любой информации по проводам и без проводов.
summ: Integer;
i:Byte;
begin
summ := 0;
for i := 0 to 20 do
begin
if i mod 2 = 0 then summ := summ + i;
end;
write('Summ is ', summ);
end.