Var
a,b:integer;
i:integer;
begin
for i:=1 to 3 do
begin
writeln('Pryamougolnik ', i);
writeln('vvedite storonu a');
readln(a);
writeln('vvedite storonu b');
readln(b);
writeln('perimetr = ', (a+b)*2);
end;
end.
Program zadanie;
Var a,b,c:real;
n:integer;
Begin
Writeln('Введите количество учеников');
Readln(n);
Writeln('Введите количество пятёрок в классе');
Readln(a);
a:=n/100*a;
Writeln('Введите количество четвёрок в классе');
Readln(b);
b:=n/100*b;
Writeln('Введите количество троек в классе');
Readln(c);
c:=n/100*c;
Writeln('Процент пятёрок в классе:',a);
Writeln('Процент четвёрок в классе:',b);
Writeln('Процент троек в классе:',c);
End.
For i := a to b do
...
end;
1) - Гбайт (самый большой, гига это
)
2)- Мбайт (1024 кбайта)
3)- кбайт (1024 байта)
4) - байт ( это 8 битов)
5) - бит - малейшая единица информации.
var c: real;
begin
readln(c);
writeln(c * 0.5 * c / 2);
end.