задача 2 b = 1 с = "в поле 3 Первоклассник Сеня пишет диктант. Сначала на слух Он успевает записать символы только подряд через пробел, но по правилам диктанта нужно писать их в столбик, поэтому Сеня повторяет запись, в этот раз располагая каждый символ на новой строчке. Вот начало программы, имитирующей записи Сени. Попробуй её дописать! a = "И" b = 1 с = "в поле воин " Вывод Не беспокойся, если в твой ответ закрадутся лишние пробелы. В задачах этого урока это не возбраняется.

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.

640*480=307200

256 цветов кодируется 1-м байтом

307200 байт

512кбайт=524288 байт

не более 1 страницы

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

если паскаль, то вот :

program altzie;

var h: real;

begin

repeat write('введите h ');

readln(a); if a< =0then writeln('ошибка! значение h не может быть нулевым или отрицательным. повторите ввод.');

until h> 0;

writeln('площадь боковой поверхности куба = ', (6*h*h));

readln; end.