1. Проверьте, является ли творенье четырёх случайных чисел, чётным числом. Составьте
1. Проверьте, является ли творение четырёх случайных чисел, чётным числом. Составьте программку.
2. Ввести двузначное число, если сумма цифр чётная, то увеличить число на 2, в противном случае уменьшить на два.
Илья Донерьян
Программку писать на Паскале?
Ванек Болотенков
да)
1 ответ
Adelina Vesnovskaja
Вот 1 задачка:
Program abc321;
var a, b, c, d, e: integer;
begin
write('Введите a:');
readln(a);
write('Введите b:');
readln(b);
write('Введите c:');
readln(c);
write('Введите d:');
readln(d);
e := a * b * c * d;
if (e mod 2 = 0) then writeln('Творенье является четным числом.') else writeln('Творенье является нечетным числом.')
end.
Вот 2 задачка:
Program abc123;
var a, b, c: integer;
begin
write('Vvedite dvuznachnoe chislo: ');
readln(a);
b := a div 10;
c := a mod 10;
if ((b + c) mod 2 = 0) then a := a + 2 else a := a - 2; writeln('a := ', a);
end.
Program abc321;
var a, b, c, d, e: integer;
begin
write('Введите a:');
readln(a);
write('Введите b:');
readln(b);
write('Введите c:');
readln(c);
write('Введите d:');
readln(d);
e := a * b * c * d;
if (e mod 2 = 0) then writeln('Творенье является четным числом.') else writeln('Творенье является нечетным числом.')
end.
Вот 2 задачка:
Program abc123;
var a, b, c: integer;
begin
write('Vvedite dvuznachnoe chislo: ');
readln(a);
b := a div 10;
c := a mod 10;
if ((b + c) mod 2 = 0) then a := a + 2 else a := a - 2; writeln('a := ', a);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов