1. Производительность формовочной машины - 7 тарелок в минуту. Сколько тарелок произведут N машин за T часов?

2. Составить программу удвоения большего из двух чисел.

3. Написать программу вычисления произведения всех двузначных четных чисел.

4. Определить количество двузначных натуральных чисел, сумма цифр которых равна заданному числу N.

Все в Pascal. Очень прошу помочь

1

Ответы и объяснения

2014-04-11T21:16:39+04:00
1)
Program A1;vara,n,t:integer;beginwriteln('Введи N');readln(n);writeln('Введи T');readln(t);a:=n*t*420;writeln('Кол-во тарелок = ',a);end.
в условии написано же всех двузначных четных чисел
аа
четных, упустил
в скайп стуканул
Program A1;
const
n=5;
var
O:array[1..n] of integer;
i,a,b:integer;
begin
a:=1;
writeln('Введите числа');
for i:=1 to n do readln(o[i]);
for i:=1 to n do begin
b:=o[i];
if ((o[i])/10)>1 then if b mod 2=0 then a:=a*o[i]; end;
if a<>1 then writeln('Произведение двузначных четных чисел = ',a)
else writeln('Двузначных четных чисел нет!')
end.