Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
1.1)0,3341...2)45,32. 3)5570. 4)741,5. 2.1)0.2B8...2)2B.C7. 3)19,4. 4)12,8
Если сумма цифр в числе кратна 3-м, то число делится на 3 без остатка. У меня получилось 9776544.
Проверяем 9+7+7+6+5+4+4=42, 42/3=14.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3>
begin
var s := ReadString;
((s.Count(t -> t in ['a'..'z']) > 0 ? 1 : 0) + (s.Count(t -> t in ['A'..'Z']) > 0 ? 1 : 0) +
(s.Count(t -> t in ['0'..'9']) > 0 ? 1 : 0) + (s.Length >= 8 ? 1 : 0)).Println;
end.
//Pascal ABC.NET 3.1 сборка 1219
Var
a:integer;
begin
readln(a);
while (a<=1000) do
a:=a+10;
writeln(a);
end.
Пример ввода:
567
Пример вывода:
1007