Прочитать с экрана 30 имен, сосчитать сколько среди них имен петя . замечание-использовать только 3 переменных. abc a-текущ имя(строковый) b-переменная(кол-во имен петя) с-переменная(цель-сколько всего имен)

118

155

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

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

VikiKot1315

Информатика

4,5(72 оценок)

Решение на паскале: var a: string; b, c: byte; begin b : = 0; c : = 0; for c : = 1 to 30 do begin readln(a); if a = 'петя' then b : = b + 1; end; write(b); end.

ангилино

Информатика

4,4(70 оценок)

Program kek; var a, c: integer; begin c: =0; a: =1; while a< > 0 do begin writeln('вводите целые числа. когда закончите - введите "0"'); readln(a); if (a> 0) and (a mod 10 = 1) then do begin c: =c+a; end; end; writeln(c); end. вроде так. нет возможности проверить.