Program z1;
var s,p,i:integer;
begin
s:=0;
p:=1;
for i:= 1 to 10 do
if i mod 2 =0 then s:=s+i
else p:=p*i;
writeln('сумма четных',s);
writeln('произведение нечетных',p);
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа через пробел:');
var (s1,p1):=ReadReal2('Введите через пробел из сумму и произведение:');
var (s2,p2):=(a+b,a*b);
if s1=s2 then Writeln('Сумма верна')
else Writeln('Сумма не верна, ',s2);
if p1=p2 then Writeln('Произведение верно')
else Writeln('Произведение не верно, ',p2)
end.
<u>Пример</u>
Введите два числа через пробел: 1.4 -2.5
Введите через пробел из сумму и произведение: -1.1 -3.25
Сумма верна
Произведение не верно, -3.5
1. не (123<10) или не (123 четное)
не ложно или не ложно
истина или истина = правда
2. не (56<10) или не (56 четное)
истина или не истина = истина
3. не (9<10) или не (9 четное)
не истина или не лож
лож или истина = истина
4. не (8<10) или не (8 четное)
не истина или не истина
лож или лож = лож
ответ 4
Проектор наверное.Я так считаю