llspacing=0>
Max: = e
Max: = d
End. <В
(Вводимо значення 96)
Відповідь: 9
В
Завдання 6.Дани 2 цілих числа А і В, з'ясувати яв. Чи 2 числа, парними
Program as; Блок-схема
Var a, b: integer;
Begin clrscr;
Writeln ('Введи 2 цілих числа А і В');
Readln (a, b);
If a mod 2 = 0 then writeln ('парне')
else writeln ("не парне ');
If b mod 2 = 0 then writeln ('парне');
else writeln ("не парне ');
Readln;
End.
(Вводимо значення 5,6)
Відповідь: чи не парне, парне
В
Завдання 7.Решіть приклад-4x 2 +8, x <0
Y =
x 2 +3 X +4, x> 0 Блок-схема
В
Program as;
Uses crt;
Var x, y: integer;
Begin clrscr;
Writeln ('Введи аргумент x ');
Readln (x);
If x> 0 then Y: = -4 * sqr (x) +8
Y: = sqr (x) +3 * x +4
Y: = -4 * sqr (x) +8
else Y: = sqr (x) +3 * x +4;
writeln ('Y =', y);
readln;
end. <В
Завдання 8. Дано три дійсних числа a, b, c. Перевірити чи виконується нерівність a
program as; Блок-схема
uses crt;
var a, b, c: integer;
begin clrscr;
writeln ('Введи три числа ');
readln (a, b, c);
if (a
else writeln ('не вірно');
readln;
end. br/>
(Вводимо значення 5,6,7)
Відповідь: виконується
В
Завдання 9.Дани три дійсних числа. Визначити, чи є серед них хоча б пара рівних між собою чисел
Program as; Блок- схема
Uses crt;
Var a, b, c: integer;
Begin clrscr;
Writeln ('Введи 3 числа ');
Readln (a, b, c);
If (a = b) or (a = c) or (b = c) then writeln ('мається')
else writeln ('немає');
end.
(Вводимо значення 5,6,7)
Відповідь: немає
В
Заданіе10.Дано дійсне число. Вивести на екран його абсолютну величину
Program as; Блок-схема
Uses crt;
Var a: real;
Begin clrscr;
Readln (a);
if (a> 0) or (a <0) then writeln (abs (a): 5:2);
readln;
end. <В
(Вводимо значення 56)
Відповідь: отримуємо абсол. величину. br/>
Заданіе11. Дано 2 цілих числа, визначити яке з них менше
Program as; Блок-схема
Uses crt;
Var a, b: integer;
Min: integer;
Begin clrscr;
Writeln ('Введи 2 числа');
Readln (a, b);
min: = b
min: = a
If a
Writeln ('Мінімальна =', min);
Readln;
End.
(Вводимо значення 5,6) Відповідь: 5
Заданіе12. Дано 2 числа. Якщо кв.корень з другого числа менше першого числа, то збільшити друге число в 5 разів
program as; Блок-схема
uses crt;
var a, b, d, c: real;
begin clrscr;
writeln ('Введи 2 числа ');
readln (a, b);
D: = sqrt (a)
C: = sqrt (b)
d: = sqrt (a);
c: = sqrt (b);
if (d
writeln ('збільшити 2 число в 5 разів ', c * c * c * c * c: 5:2)
else writeln ('немає рішення');
readln;
end. <В
Відповідь: немає рішення
В
Задан...
