Информация может быть устной а данные токо письмеными
N1
var a, b: integer;
• begin
• readln(a, b);
• a := a mod 2;
b := b mod 2;
• if (b > 0) and (a > 0) then
• writeln ('четных чисел нет')
• else
• writeln ('четное число есть');
<span>end.
</span>
N2
#include <iostream>
using namespace std;
int main()
{
int a;
cin >> a;
if(a < 100 || a > 999) cout << "Неверное число" << endl;
else
{
int a1 = a/100;
int a2 = (a/10)%10;
int a3 = a%10;
if(a1%2==a2%2==a3%2==0) cout << "Да" << endl;
else cout << "Нет" << endl;
}
return 0;
}
Var a,p:integer;
begin
p:=1;
repeat
readln(a);
if (a>=-10) and (a<=10) then
p:=p*a;
until (a>10) or (a<-10);
write(p)<span>
end.</span>