Практическое задание 1. Даны два целых числа, отличных от нуля. Найдите их сумму, произведение, разность, - id1391487220200714 от kamikot 14.07.2020 07:32

Question

Информатика: Практическое задание 1. Даны два целых числа, отличных от нуля. Найдите их сумму, произведение, разность, частное. 2. Дано трехзначное число. Найдите произведение их цифр. 3. Дано пятизначное число. Найдите разность двух чисел. Первое число равно сумме цифр исходного числа, стоящих на четных местах. Второе число равно сумме цифр, стоящих на нечетных местах. T I 4. Дано трехзначное число. Выведите на экран новое число, полученное из исходного путем перестановки цифр в обратном порядке. 5. Вывести

kamikot · Accepted Answer

Program question;

var
a: string;
b: integer;

begin
writeln('Сколько тебе лет?:');
readln(b);
if b > 17 then begin
writeln('В каком институте ты учишься?:');
readln(a);
writeln(a, ' хороший институт');
writeln('До следующей встречи!');
end
else
if b <= 17 then begin
writeln('В какой школе ты учишься?');
readln(a);
writeln(a, ' не плохая школа');
writeln('До следующей встречи!');
end;
end.

MOGZ ответил