1)
var
V,a: integer;
begin
write('Введите длину ребра: ');
readln(a);
V:=a*a*a;
writeln('Объём куба: ',V);
end.
2)
var
a,b,c,S: integer;
begin
writeln('Введите длины ребер:');
readln(a,b,c);
S:=2*a*b+2*a*c+2*b*c;
writeln('Площадь поверхности кирпича: ',S);
end.
3)
var
r,l: real;
begin
write('Введите радиус окружности: ');
readln(r);
l:=2*Pi*r;
writeln('Длина окружности: ',l);
end.
program znak;
var
a:real;
s:boolean;
begin
writeln('Введите число');
read(a);
s:=(a>0);
writeln(s);
end.
15 минут = 900 секунд секунд фильма состоят из 900 * 36 кадров. Если на каждый кадр отводится 512 Кб, то всего будет
512 Кб * 900 * 36 = 1 Мб * 900 * 18 = 16 200 Мб = 15,8 Гб
Var a:array[1..1000] of integer;
i,n,max,m:integer;
begin
write('n=');readln(n);
for i:=1 to n do read(a[i]);
max:=a[1];m:=1;
for i:=2 to n do if a[i]>max then
begin max:=a[i]; m:=i; end;
a[m]:=a[1];a[1]:=max;
for i:=1 to n do write(a[i],' ');
writeln;
<span>end.
</span>
Ответ:
Миша. Белый гриб, который они нашли у озера.
Объяснение:
Миша. Одно истинное -это означает что первое уже верно, а второе ложное( то есть все последние два варианта Валеры и Игната уже не верны)