Очень нужна помощь. Пожалуйста, с подробным объяснением!!! Задание в приложении.
Answers & Comments
HRAshton
1) Можно было и проще: просто вывести цифры через запятую, но коль число...:) var a, b, c: byte; begin readln(a, b, c); writeln(a * 100 + b * 10 + c); end.
2) var a, b, c: real; begin readln(a, b, c); if (a < b) then a := b; if (c > a) then a := c; writeln(a); end.
3) Неполная картинка
4) var a, c: integer; begin readln(a); while (a > 0) do begin if (a mod 10 = 5) then inc(c); a := a div 10; end; writeln(c); end.
Answers & Comments
var a, b, c: byte;
begin
readln(a, b, c);
writeln(a * 100 + b * 10 + c);
end.
2)
var a, b, c: real;
begin
readln(a, b, c);
if (a < b) then a := b;
if (c > a) then a := c;
writeln(a);
end.
3) Неполная картинка
4)
var a, c: integer;
begin
readln(a);
while (a > 0) do
begin
if (a mod 10 = 5) then inc(c);
a := a div 10;
end;
writeln(c);
end.
5) Тоже не всё видно=)