Кто знает как решать?Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.· Есл
Кто знает как решать?
Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. <span> <span>·
</span>Если произведение второго и четвертого чисел четно, то выведите эти два числа и их произведение.</span> <span> <span>·
</span>Если сумма первого и третьего чисел больше 150, то выведите эту сумму и все четыре числа.</span> <span> <span>·
</span>Если выполняются одновременно два перечисленных выше условия, то выведите произведение второго и четвертого чисел и сумму первого и третьего..</span> <span> <span>·
</span><span>Иначе, выведите все четыре числа без изменения.</span></span>
Привет. Предлагаю тебе такое решение. Так как сам новичок, чуть-чуть попыхтел :)
program dlya_0101000; var a,b,c,d,p,l:integer; m:boolean; label 1,2; begin writeln ('Введите 4 произвольных числа, разделяя их пробелом'); read (a,b,c,d); p:=b*d; if (((b-d) mod 2)= 0) then writeln('Сумма ',(b+d), ' чётная. Два числа и их произведение: ',b*d) else goto 1; m:=(a+c)>150; if m=true then writeln ('Сумма чисел: ',a+c,'. Четыре числа: ',a,' ',b,' ',c,' ',d); if (((b-d) mod 2)<>0) and (m=true) then writeln ('Произведение второго и чётвёртого: ',(b*d), ' .Сумма первого и третьего: ',(a+c)); goto 2; 1: writeln ('Четыре числа: ',a,' ',b,' ',c,' ',d); 2:end.
Алг Число нач цел n, n1, k, f вывод "Введите целое число", нс ввод n n1:= div(n,10) k:= mod(n,10) f:= 1 нц пока n1<>0 если mod(n1,10) > k то f:= 0 все k:= mod(n1,10) n1:= div(n1,10) кц если f=1 то вывод "Да." иначе вывод "Нет." кон
Первый американский программируемый компьютер. Разработан и построен в 1941 году по контракту с IBM молодым гарвардским математиком Говардом Эйкеном и ещё четырьмя инженерами этой компании на основе идей англичанина Чарльза Бэббиджа.