Задача 1
1) Начиная от 7 идем вниз с шагом 1 до 4
Ответ: 3
2) нет цикла - Ответ: 1
Задача 2
Начиная от 1 идем вверх с шагом 1 до n, который равен 4. Итого делаем 4 шага.
Первый шаг i=1, а =100, значит а=100-2*1=98
Второй шаг i=2, a=98, значит а=98-2*2=94
Третий шаг i=3, а=94, значит a=94-2*3=88
Четвертый шаг i=4, а=88, значит a=88-2*4=80
Ответ: 80
var
r, L, S, V: Real;
begin
Write ('Введите радиус: ');
ReadLn (r);
L := 2 * Pi * r;
S := Pi * r * r;
V := 4 / 3 * Pi * Power (r, 3);
Writeln ('Длина окружности = ', L);
Writeln ('Площадь круга = ', S);
Writeln ('Объем шара = ', V);
end;
N=30+10=40, 2^i=40, i=6 бит
7*6:8≈6 байт
V=32*6=192 байта
1.
var a,b:string;c:integer;
begin
readln (a);
b:='a';
c:=pos(b,a);
if c<>0 then writeln ('Есть буква а') else writeln ('Нет буквы а');
end.