Readln(n);
If (n>0)
write (n*n);
else
weite(0);
Видимо, 0 нельзя вводить?
Program zadacha;
vara: array[1..10] of integer;i,min,n: integer;
beginn:=0;for i:=1 to 10 do begina[i]:=-5+random(5);write(a[i]:4);min:=a[1];end;
for i:=2 to 10 do beginif min>a[i] then min:=a[i];end;
for i:=1 to 10 do beginif a[i]=min then beginn:=n+1;end;end;
writeln();writeln('min=',min);writeln('n=',n);end.
Смотря какую.У меня друг делал презинтацию на конкурс совёно он распрашивал всех на каком море кому нравиться потом сделал анкету типо :
на красном море допустим 45%
на чёрном море 15%
ну и т.д.
1) Если 3 > 2, то истинно.
2) Если 2 > 3, то истинно
Ответ:
в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушить по
Объяснение:
в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушить п