В созвездии Малая Медведица 7 звёзд. Самая яркая из них Полярная звезда.
Var a,b:real;
begin
readln(a,b);
if(sqrt(b)<a) then b:=b*5
else b:=0;
writeln(b, ' - второе число');
end.
P=-61
///////////////////////////////////////////////////////////////
Теории в интернете полно.
3) 3 раза
4) 5
5) until n>6
6)program zadanie;
uses crt;
Var
n,k,i,S: integer;
begin
clrscr;
writeln ('Введите n=');
readln (n);
for i:=1 to n do
begin
S:=S+i*i;
end;
writeln('Сумма квадратов=',S);
end.
7)program zadanie2;
uses crt;
Var
n: integer;
begin
clrscr;
writeln ('Введите n=');
readln (n);
writeln('Результат:',(5+(n-1))*n);
<span>end.</span>
Дано
K= 100 стр
L= 60 строк
N=80 символов
Z= 1 байт
Q - ? Мбайт
Решение
ИНформационная емкость книги составит 100*60*80*1=480000 байт = 0,48 Мб