Надо! составить программу и блок-схему вычисления суммы натуральных чисел от 20 до 50 программа -кумир

290

448

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

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

arave1

Информатика

4,6(27 оценок)

Алг нач цел i,s s: =0 нц для i от 20 до 50 s=s+i кц вывод s кон

Нонс2

Информатика

4,8(87 оценок)

Var s: string; n,k: integer; begin write('строка: '); readln(s); n: =pos(' ',s); if n> 0 then begin writeln('первая буква второго слова: ',s[n+1]); writeln('последняя буква: ',s[length(s)]); writeln('количество букв: ',length(s)-n); k: =0; for n: =1 to length(s) do if s[n]='a' then k: =k+1; if k> 0 then writeln('количество букв a: ',k) else writeln('в строке нет буквы a'); end else writeln('в строке одно слово'); end.