Программа выводит максимальную цифру числа:
Program maxx;
uses crt;
var x,max:integer;
begin
write('введите число x=');readln(x);
max:=0;
while x>0 do
begin
if max<(x mod 10) then max:=(x mod 10);
x:=x div 10
end;
writeln('max=',max);
<span>end.</span>

0 0

4 года назад

Пмогите пожалста очень нужно

Rotten world [147]

Ответы: 4 - Г, 5 - Б, 6 - Г

0 0

4 года назад

Даны целые числа a, b и n.Требуется найти количество чисел

Юра Каландырец

Я думаю 3 ...........................

0 0

3 года назад

СРОЧНО!!!)) Помогите пожалуйста!!!! Желательно решение на листике)) На заводе имеется 120 тонн дрожжевой массы.Ежедневно она ув

Zhoni

Var d,p,x:real; t,i:integer;
begin
d:=120;
readln(p,x,t);
for i:=1 to t do d:=d+d*p/100-x;
writeln('d = ',d:5:2);
end.

Пример:
10 15 5
<span>d = 101.68</span>

0 0

4 года назад

Прочитать ещё 2 ответа