===== PascalABC.NET =====
begin
'мама мыла раму'.Println.Replace('а','о').Println
end.
1 дюйм = 2,54 см (для упрощения расчетов будем считать, что 1 дюйм = 2,5 см).
10 см * 10 см ≈ 4 дюйма * 4 дюйма
Количество точек сканированного изображения = 600*600*4*4
32 бита = 32/8 байт = 4 байта
Объем файла = 600*600*4*4*4 байт = 600*600*4*4*4/1024 Кбайт = 22500 Кбайт = 22500/1024 Мбайт ≈ 22 Мбайта
program z1;
var n,m:integer;
rost,nine_a,nine_b:real;
begin
write('Введите количество учинеков 9а класса: ');
readln(n);
write('Введите количество учинеков 9б класса: ');
readln(m);
writeln('Вводите рост каждого из учинеков 9а по очереди');
for i:integer :=1 to n do begin
write(i,': ');
read(rost);
nine_a:=nine_a+rost;
end;
nine_a:=nine_a/n; // средний рост 9а
writeln('Вводите рост каждого из учинеков 9б по очереди');
for i:integer :=1 to m do begin
write(i,': ');
read(rost);
nine_b:=nine_b+rost;end;
nine_b:=nine_b/n; // средний рост 9б
if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');
<span>end.
как-то так, будут вопросы пиши)
Всего-то 30 мин</span>
Var
a,b,c,d:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(d);
writeln('Среднее четырех чисел = ',(a+b+c+d)/4)
end.
