Как вычислить в Excel числа кратные 7 и 5 в диапазоне от 1 до 100

262

346

Посмотреть ответы 1

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

FrostMorne

Информатика

4,7(49 оценок)

1. program prog; uses crt; var s: string; k,i: integer; begin; write('s = '); readln(s); for i: =1 to length(s) do if (s[i]='м') or (s[i]='м') then k: =k+1; writeln(k); end. 2.program prog; uses crt; var s,n: string; i: integer; begin write('s = '); readln(s) ; n: =''; for i: =1 to length(s) do if (s[i]< > 'о') and (s[i]< > 'о') then n: =n+s[i]; s: =n; writeln (s); end.