Begin
var N,X: string;
var K,Y: integer;
var M: longint;
writeln ('Как тебя зовут? ');
readln(N);
writeln ('Введи номер класса в котором ты учишься. ');
readln(K); Y:=2016+1+11-K;
writeln (N,' закончишь школу в ',Y,' году. Верно? да/нет. ');
read(X);
if X='да'
then writeln ('Ай да я! Ай да молодец!')
else
if X = 'нет'
then writeln ('Ой! Неужели ошиблась?!')
else writeln ('Хм! Вечный школьник?!');
end.
Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.
включить принтер, проверить наличие бумаги в нем, если ее нет или мало, то добавить.
открыть документ, проверить что все в нем правильно, отправить на печать
6 кілобайт дорівнює 6 * 1024 байт1 байт = 8 біт6 * 1024 * 8 =49125 бiт