Задача по информатике! У каждой из 7 старух 7 валов, в каждом вале 7 хлебов, в кажом...

Question

Задача по информатике! У каждой из 7 старух 7 валов, в каждом вале 7 хлебов, в кажом хлебе 7 ножей. составить программу на паскаль с циклом!!! Помогите пожалуйста

Answer 1

Program ABC;
var
a,b,c,f,S:integer;
begin
write ( 'Введите число старух ='); readln(a);
write ( 'Введите число валов ='); readln(b);
write ( 'Введите число хлебов ='); readln(c);
write ( 'Введите число ножей ='); readln(f);
S:=a*b*c*f;
write ('Число всех ножей =' ,S);
end

Comments

А если нужно посчитать количество всех предметов то какая программа будет?