Информатика, опубликовано 2018-08-22 22:35:22 by Гость
Составьте программу, которая находит произведение цифр заданного четырехзначного числа
Ответ оставил Гость
Vara,s,d,f:integer;BeginWriteln(четырехзначное число,s);a:=0;a:=(s div100)*(s mod 10 )*(s div 10 mod 10)*(s div 100 mod 10);Writeln (s);End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.