begin readln(n); g:=n; while n<>0 do begin g:= g div 10; k +=1; end;
for i:=1 to k do begin g:= n mod 10; sum:= sum + g; n:=n div 10; end; if sum> 10 then writeln('верно') else ('неверно'); end.
2. var n,i,k,p,h,g:integer;
begin readln(n); g:=n; while n<>0 do begin g:= g div 10; k +=1; end; p:=n mod 10; n:=n div 10; for i:=1 to k-1do begin g:= n mod 10; if g = p then h += 1; n:=n div 10; end; writeln(h); end.
3. const n=10; var
a:array[1..n]of integer; i,sum:integer;
begin a[n]:=0; for i:=1 to 9 do readln(a[i]);
for i:=1 to n do sum:=sum+a[i]; writeln(sum); end.
4. var
n:integer;
begin
readln(n);
while n<>0 do begin n:=n div 10; k += 1; end; if k = 4 then writeln('число четырехзначное') else writeln('число не четырехзначное'); end.
5. var
a:array[1..10]of integer; i:byte;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do begin if a[i] = 2 then writeln('да есть'); break; end; end.
1) Это явно шифр замены. Мы знаем, что: А = Я, Н = С, Т = М, О = Р, М = Т, И = Ц, Х = Й, Л = У, Ь = Г, Е = Ъ, В = Э, Г = Ь, Й = Х. Этого достаточно, чтобы подставить буквы и получить НМЪПЯС = СТЕ*АН, очевидно, что это СТЕПАН. А если немного подумать, то можно догадаться, какой это шифр. Взяли алфавит и написали два раза - прямо и наоборот. Каждая буква из 1 алфавита заменяется на букву 2 алфавита. А = Я, Б = Ю, В = Э, Г = Ь, и так далее.
2) Про Виталия. Из 96 друзей 76 знают Павла и 56 знают Андрея. Значит, минимум 76+56-96 = 36 чел знают и Павла и Андрея. Про Павла. Из 162 друзей 96 знают Андрея и 76 знают Виталия. Минимум 96+76-162 = 10 знают и Андрея и Виталия. Про Андрея. Из 108 друзей 56 знают Виталия и 96 знают Павла. Минимум 56+96-108 = 44 знают и Виталия и Павла. Выбираем наибольшее из минимальных чисел. ответ: минимум 44 чел знакомы со всеми тремя парнями.
var a, b: integer;
readln(a);
readln(b);
if 4 - a = b then begin
{ ... }
end;
end.