Написать программу на алгоритмическом языке. В которой: - будут описаны переменные i и k целого типа; - id1184490820210811 от Асуна225 11.08.2021 22:29

Question

Информатика: Написать программу на алгоритмическом языке. В которой: - будут описаны переменные i и k целого типа; - вводится переменная k - пока k 50, переменная k будет увеличиваться на 6 - переменная i будет считать количество прибавленных цифр 6 - в ответе должно выводится значение переменной i.

Асуна225 · Accepted Answer

1) var s:string;      i:integer;      f:boolean; begin   f:=false;   write ( S = );   readln(s);   for i:=1 to length(s) div 2 do    if s[i]=s[length(s)-i+1] then f:=true else      begin       f:=false;       break;     end;   if f then writeln ( PALINDROM ) else writeln ( NOT PALINDROM );   readln; end. 2) var a,b:integer;      count,j:integer; function palindr (n:integer):boolean; var s:string;      i:integer; begin   palindr:=false;   str (n,s);     for i:=1 to length(s) div 2 do          if...

MOGZ ответил