Сумма = 0;
X=26;
ПОКА (X (< либо =)88)
{
Сумма = Сумма + X;
X = X+2
}
1. Китайцы - мышонок, Немцы - обезьяний хвост, Итальянцы и французы - улитка
2А (16сс)= 10 1010 (2сс) =101 010 (2сс) =52 (8сс)
2А (16сс) =2*16 +10 =42(10сс)
program z1;
var a,m,n:integer;
begin
writeln ('введите трехзначное число ');readln(a);
writeln ('введите число m ');readln(m);
if (a mod m)=0 then writeln ('числа кратные m',a) else writeln('не кратны');
if ((a mod 10)=3)or(((a div 10)mod 10)=3)or((a div 10)=3) then n:=n+1;
writeln('количество чисел содержащих число 3',n);end.