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;
}
1 мегабайт- это 0,001 гигабайта
Гигабайт в 1000 раз больше
Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>
Var x,y,i,min,max1,max2:integer;
begin
writeln('пожалуйста, введите поочередно 3 числа');
readln(x);readln(y);readln(i);
if (x<y) and (x<i) then begin min:=x; max1:=y; max2:=i; end;
if (i<y) and (i<x) then begin min:=i; max1:=y; max2:=x; end;
if (y<x) and (y<i) then begin min:=y; max1:=x; max2:=i; end;
writeln('минимальное число =',min);
writeln('произведение 2-х максимальных =',max1*max2);
end.
Пример работы:
пожалуйста, введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192
Двоичная или десетичная система вычесления