основной текст в египте писали чёрной краской ,чтобы выделить начало строки или фразы писали красным .(но выделяли редко -писчий материал был дорогим).
Ответ дал: Гость
var
s,n,i: integer;
begin
write('введите количество чисел');
readln(n);
s: =0;
for i: =1 to n do
s: =s+i*3;
writeln(s);
end.
Ответ дал: Гость
var x1,x2,x3,x4: integer;
function max(a,b: integer): integer
begin
if a> b then max: = a
else max: =b;
end;
begin
read(x1,x2,x3,x4);
x1: =max(x1,x2);
x2: =max(x3,x4);
x1: =max(x1,x2);
writeln(x1);
end.
Ответ дал: Гость
var a: array[1..2,1..30] of integer; i,j: integer; begin for i: = 1 to 30 do begin writeln('введите номер ученика: '); read(a[1,i]); writeln('введите оценку: '); read(a[2,i]); end; for i: = 1 to 10 do begin writeln(i: 2,' - '); for j: = 1 to 30 if a[1,j]=i then write(a[2,i],' '); end; readkey; end.
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
Запиши число 12622 в развёрнутом виде, начиная со старшего разряда. ...
Популярные вопросы