На наступний слайд, у іншу програму, у інший файл
Ответ:
Большой, просторный, светлый дом.
Ребят хороших много в нём.
Красиво пишут и читают.
Рисуют дети и считают...(школа)
Загремел на небе гром,
Сотрясается весь дом
Я зажмурила глаза.
Что на улице...(Гроза)
Он в лесу ночами рыщет,
Пропитанье себе ищет.
Страшно слышать пасти щелк…
Кто в лесу зубастый...(Волк)
const n=5;
var a: array [1..n] of real;
i: integer;
begin
for i:=1 to n do begin readln(a[i]);
if i mod 2=1 then a[i]:=sqr(i);
writeln(i,' элемент массива равен : ',a[i]);
end;
end.
Вроде получилось:
var a,b,s:integer;
begin
write('Числа = ');
for a:=1 to 100 do
begin
b:=a mod 3;
if (b = 0) then
begin
write(a,', ');
s:=s+a;
if((s > 500) and (s<520)) then break;
end;
end;
writeln('Сумма чисел = ', s);
end.
Результат: