Задача №3 

Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100; a3:=a3 div 10;
a4:=a mod 10;
if (a1+a2)=(a3+a4) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.

Задача №4 

Var a,a1,a2,a3:integer;
Begin
Readln(a)
;a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
if (a1=a2) and (a2=a3) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.

Задача №5 

Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
sqr(a);
if (a>=100) and (a<=999) then begin
a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
end;
if (a>=1000) and (a<=9999) then begin
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100;
a3:=a3 div 10;
a4:=a mod 10;
end;
if (a1=3) or (a2=3) or (a3=3) or (a4=3) then writeln('Условие задачи выполнено') else writeln('Условие задачи не выполнено');
End.

0 0

6 лет назад

Что будет выведено на экран в результате выполнения фрагмента программыа:5b:3write('Z(a)=','(b)')здесь а и b - целые переменные

Katelk

Бл*, весь код коту под хвост
нечего не выдаст...

0 0

5 лет назад

Задача: В натуральном числе, найти количество цифр, которые больше его десятков. Формат ввода: На вход подается натуральное числ

Russian006 [14]

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger;
var s:=n.ToString;
var d:=s[s.Length-1];
s.Where(c->c>d).Count.Println
end.

Пример
15334
2

0 0

5 лет назад