составить блок схему и написать программу которая находит сумму цифр четного чет...

kachok2003 @kachok2003

August 2022 1 1 Report

составить блок схему и написать программу которая находит сумму цифр четного четырехзначного числа либо произведение нечетного четырехзначного числа

Answers & Comments

TheZeusist Программа:
program abc;
var x,s,p:integer;
begin
writeln('Введите четырехзначное число');
readln(x);
if (x mod 2)=0 then
begin
s:=(x mod 10)+(x div 10 mod 10)+(x div 100 mod 10)+x div 1000;
writeln('s=',s);
end
else
begin
p:=(x mod 10)*(x div 10 mod 10)*(x div 100 mod 10)*x div 1000;
writeln('p=',p);
end;
end.
Блок-схема

1 votes Thanks 1

Answers & Comments

zapishi pyat tryohznachnyh chisel kazhdoe iz kotoryh pri delenii na 7 dayot tryohznachno

korni v slovah greben kluben biven liven uroven selezen kame

zvukobukvennyj razbor slova kormit

chtoby uznat rod imenisushestvitelnogo nuzhnochtopomogite pozhalusto

ko mediana ravnobedrennogo hkr najdite hko esli smezhnyj s hkr ugol raven

primery semejnyh zabot

chtoby uznat rod imeni sushestvitelnogo nuzhnopomogite

lyudi ochen nado skazhite pozhalusto najdite propushinye chisla tam gde stoit znak v

рекомендуемые вопросы

Helpful Links

Helpful Social