Письмо Пете
Грамота
12 меньше 13
Письмо_Пете
Что?
Ура!
Ку-Ку
var
mas:array[1..3] of integer;
i,min:integer;
begin
for i:=1 to 3 do
begin
min:=maxint;
writeln ( 'Введите возраст ',i,'-ого участника');
readln (mas[i]);
if mas[i]<min then min:=mas[i];
end;
writeln (min);
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.
Program abs;
var x,y,z:integer;
begin
readln(x);{первое число}
readln(y);{второе число}
z:=x+y;{их сумма}
if (z mod 3)=0 then
writeln(''Yes'')
else writeln(''NO'');
end.
4 Мб = 4 * 1024 Кб = 4 * 1024 * 1024 байт
Если продолжительность записи t секунд, объём файла
8 бит * 44 100 Гц * t с = 44 100 t байт
44 100 t = 4 * 1024 * 1024
t = 95 с