Var a,b,c:integer;
begin
c:=1;
for a:=5 downto 2 do begin
for b:=5 downto c do begin
write(a);
end;
writeln('');
c:=c+1;
end;
end.
Для начала посчитаем сколько всего времени мальчик затратил на перекладывание рыбок в банку 40*2=80, затем посчитаем сколько он затратил времени, чтобы поймать рыбок 40*5*5%=210 всего 290/60=4,8мин
таблица в excel
А1 количество рыб В1 время на улов С1 время на перекладывание D1 общее время
A2-A41 ПРОСТО ПРОСТАВЬ ЦИФРЫ B2 вставь функцию =СУММ(B2;5*5%) и протяни до значения В42 и так далее
Var
r:real;
Begin
Write('Введите радиус круга: ');ReadLn(r);
WriteLn('Площадь круга: ',Pi*r*r);
WriteLn('Длина окружности: ',2*Pi*r)
End.
//Вот программа, которая кодирует слова в системах счисления от 2 до 10
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0
var
a,i,b,r,n,j,bug:integer;
s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string);
begin
repeat
b:=a mod n;
a:=a div n;
str(b,se);
s+=se;
until (a<=n-1);
end;
begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
<span>end.
//Слово Программа она кодирует как </span>11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
Program Rick_and_Morty; //название поменяй
var x,y:integer;
Begin
write('введите x: ');
readln (x);
write('введите y: ');
readln (y);
if ((x<=0) and (y>=0) and (x*x+y*y<=36)) //тут условие
or ((x<=0) and (y<=0) and (x*x+y*y<=36)) //and как и, or как или
or ((x>=0) and (y<=0) and (x*x+y*y<=36)) // условие закончилось
then //если хоть одно условие верно то
writeln('(',x,',',y,') - входят в облость')
else // если не верно то
writeln('(',x,',',y,') - не входят в облость');
writeln('конец');
end.