задача по информатике! У каждой из 7 старух 7 валов, в каждом вале 7 хлебов, в кажом хлебе 7 ножей. составить программу на паскаль с циклом!!! Помогите пожалуйста
Answers & Comments
Dkveront
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
1 votes Thanks 1
darjaarapova20
А если нужно посчитать количество всех предметов то какая программа будет?
Answers & Comments
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