Четкий портал 2

Четкий портал

Приветствую Вас Гость • Регистрация • Вход
Пятница, 11.7.2025
Главная » 2012 » Сентябрь » 19
var x, y, i, k:Integer;
begin
Writeln('Vvedite 3-znachnoe chislo=');
Readln(x);
y:=0;
k:=100;
while (x<>0) do
begin
y:=y + (x mod 10)* k;
k:=k div 10;
x:=x div 10;
end;
Writeln('Otvet = ', y);
Readln;
end.
Прикрепления:
Категория: | Просмотров: 870 | Добавил: | Теги: | Рейтинг: 0.0/0

Форма входа

Мини-чат