Решить задачи в ПАСКАЛЕ!! 1. Подсчитать, сколько раз символ «e» встречается во вводимой с
клавиатуры строке.
2. Даны строка s1=’операция сложения’ и строка s2=’дистрибутивность’.
Используя только эти строки, получить строку ‘оперативность’.
3. Проверить, имеется ли строка s1=’dfg h’ во вводимой с клавиатуры
строке.
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.