50

составьте программу которая определяет каких букв больше латинских или

187

222

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

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

lolkekcheburek15

Информатика

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

pascalabc.net

begin

var lat : = ['a'..'z'];

var cyr : = ['а'..'я', 'ё'];

var s : = readlnstring('вводите: ').toupper;

var d : = s.count(c -> c in cyr) - s.count(c -> c in lat);

if d > 0 then

print('кириллицы больше')

else if d < 0 then

print('латиницы больше')

else

print('')

end.

kolya1123

Информатика

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

Program zadacha; var a,p,s: integer; begin writeln('введите четырехзначное число'); readln(a); p: =(a div 1000)*(a mod 100 div 10); s: =(a div 100 mod 10)+(a mod 10); writeln('произведение первой и третьей =',p); writeln('сумма второй и четвертой = ',s) end.