1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
Правильный ответ С 4 !!!!!!!!
begin
var S := ReadlnString('Вводи сплошной строкой:').ToCharArray;
SetLength(S, 50);
Println('Приняты символы:');
S.Println('');
Println('Найдено z:', S.Count(c -> c = 'z'))
end.
Пётр баскетболист, Геннадий волейболист, Алексей гимнаст, Владимир легкоатлет