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

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

Приветствую Вас Гость • Регистрация • Вход
Пятница, 11.7.2025
Главная » 2012 » Сентябрь » 19 » з6
20:36
з6
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 | Добавил: twx | Рейтинг: 0.0/0
Всего комментариев: 0
s">

Добавить комментарий




Форма входа

Мини-чат