Если прописать в паскаль этот алгоритм через цикл while (цикл с <span>предусловием)</span>, то ответ будет B=25.
var a, b: integer;
begin
a := 2;
b := 0;
while a <> 7 do
begin
a := a + 1;
b := b + a;
end;
writeln(b);
end.
var k,p: integer;
begin
readln(k,p);
if k*80<p*70 then
write('автомобилист проедет меньший путь; разность: ',p*70-k*80,'км')
else write('мотоциклист проедет меньший путь; разность: ',k*80-p*70,'км');
end.
№4 -4 (высказывание) №5-3 (структура) №6-3 №7-3 №8- №9-4
№10-3 №11-1 №12-1 №13- -2 №14-3 №15-4 №16-3 №17-3
№18-1 №19-4 №20-2 №21-1 №22-1 №23-2 №24-3 №25-2 №26-2
1) Для слова "дерево" условие "<span>Пятая буква гласная" == Ложь, значит и все выражение = Ложь
2) Для слова "астра":
</span><span>"отрицание(Первая буква согласная⇒Третья буква согласная)∧Пятая буква гласная"
</span>"отрицание(Ложь⇒Истина)∧Истина" ==Ложь∧Истина == Ложь
3) Для слова "ударник" условие "Пятая буква гласная" == Ложь, значит и все выражение = Ложь
4) Для слова "Клавиша"
"отрицание(Истина⇒Ложь)∧Истина" == "отрицание(Ложь)∧Истина" ==
"Истина∧Истина" == Истина
Ответ: 4) Клавиша