Var a,b,s,i:integer;
begin
writeln('a, b:');
readln(a,b);
s:=0;
for i:=a to b do
if i mod 4=0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
<span>a, b:
20 100
s = 1260</span>
а) Функция возвращает длину строки, k = 10
б) Возвращает 4 символа начиная с 4-го из строки Str1, s = ' ned'
в) Удаляет из Str1 2 символа начиная с4-го, Str1 будет = 'denedeli'
г) Вставляет Str1 в Str2 начиная с третьего сивола, Str1 не изменится, Str2 будет = 'deden nedeli'
д) Возвращает позицию Str1 в Str2. В Str2 нет Str1, значит функция вернет 0
*Рисунок на фото
ДАНО:
Футбол = a+c = 14000
Хоккей = b+c = 16000
Футбол ИЛИ Хоккей = a+b+c = 20000
НАЙТИ:
Футбол И Хоккей = c = ?
РЕШЕНИЕ:
a+b+c+c = 14000+16000 = 30000 =>
a+b+c = 30000-c
и
a+b+c = 20000
=>
30000-c = 20000
c=10000
Ответ: <span>по запросу ФУТБОЛ&ХОККЕЙ будет найдено 10000 тысяч страниц
</span>
Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.