Rem "имя программы"
input a
y=(a^2+10)/(sqr(a^2+1))
print "y=";y
end
это на языке basic переведи на паскаль они похожи.надеюсь ты справишься
Первая слева схема дает a ∧ b
Cледующая схема инвертирует это выражение: ¬(a ∧ b)
Самая правая схема объединяет полученную функцию с b по "ИЛИ"
¬(a ∧ b) ∨ b = ¬a ∨ ¬b ∨ b = ¬a ∨ (¬b ∨ b) = ¬a ∨ 1 = 1
1)4096*2048=8388608
2)8388608/3=2796203 байт /1024=2731 Кбайт/1024=2,7 Мбайт
страниц от 1 до 9 - это 9, затем 10-я и 11 страницы ещё 4 цифры. всего 13
Ответ:
program numab;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.