Есть ответ 👍

Как должна выглядеть презентация своего класса информатика 3 кл.

189
500
Посмотреть ответы 3

Ответы на вопрос:

nikkun80
4,5(83 оценок)

Самое важное что будет интересно остальным.
Masha00317
4,4(34 оценок)

Рассказ о своём классе и достижениях

var  s: string;   i: integer; begin  write('s = ');   readln(s);   for i : = 1 to length(s) do      if s[i] < > s[length(s) - i + 1] then      begin          writeln('no');           readln;           exit;       end;   writeln('yes');   readln; end.

 

//вторая программа

 

var  s: string;   i, counta, counte: integer; begin  counta : = 0;   counte : = 0;   write('s = ');   readln(s);   for i : = 1 to length(s) do      if s[i] = 'a' then          inc(counta)      else          if s[i] = 'e' then              inc(counte);   if counta > counte then      writeln('a > e')  else      if counta < counte then          writeln('a < e')      else          writeln('a = e');   readln; end.

Популярно: Информатика