Tipo - Learn · Pascal · Типо Лерн

Perfect vision for programming

> Урок 1 > Урок 2 > Урок 3 (Вы здесь) > Урок 4
Поразрядное вычисления и ф-ия Random()
ЗАДАЧА: Создать случайное двузначное число, найти его десятки и сотни в переменные 'des' и 'ed' соответственно. Вычислить ed+des
Описание типа данных переменных: uses crt; var A,DES,ED,SUM:Integer; BEGIN Создание двузначного числа, получение единиц и десятков загаданного числа A:=10+Random (90); writeln ('Загаданное число ',A); ED:=A mod 10; writeln ('Разряд единиц: ',ED); DES:=A div 10; writeln ('Разряд десятков: ',DES); Получение суммы и вывод ответа writeln ('Сумма цифр числа',': ',SUM); END.

2018-2020, Илья Любимов.

По коммерческим предложениям - e-mail

Поразрядное вычисления и ф-ия Random()