пожалуйста срочно помогите, очень прошу
5-9 класс
|
тема у нас Организация ветвлений в Паскале. и так, вопрос:
дано трёхзначное число. если сумма цифр числа кратно 3, тогда перевернуть число, иначе обнулить среднюю цифру
очень срочно, кто может
uses crt;
var a, b, c, d, e: integer;
begin
clrscr;
writeln('введите трехзначное число');
readln(a);
b:=a div 100;
c:=a mod 100;
d:=c div 10;
c:=c mod 10;
e:=b+d+c;
if e mod 3=0
then
begin
e:=c*100+d*10+b;
writeln(e)
end
else
begin
d:=0
e:=b*100+d*10+c;
writeln(e)
end
end.
а что нужно, написать программу?
Другие вопросы из категории
расположенный в соседней комнате вашей организации; б) отправка электронного письма другу из Германии; в) копирование файла со своего рабочего компьютера на сервер организации; г) обновление антивирусных баз с сайта разработчика; д) сетевая компьютерная игра с соседом по подъезду; е) поиск в Интернет информации о погоде.
2.Играя в игру "Угадай число" было получено 6 бит информации. Каково было кол-во возможных событий?
3. Маша переехала в многоэтажный дом, и сообщение о том,что она живет на 24 этаже,несет 5 бит информации.Сколько этажей в доме?
Читайте также
программа фриПаскаль!
Составьте программу выводящую на экран мое имя "Алиса"
Помогите,очень прошу!
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ