Program as; Блок-схема
If (a div 10=3) or (a mod 10=3)
Else writeln(‘Не входит’);
Readln;
End.
| |
Ответ: Входит
|
Задание 5. Дано 2х зн. число. Определить какая из его цифр больше
Program as; Блок-схема
|
| ||
|
Задание 6.Даны 2 целых числа А и В, выяснить яв. ли 2 числа, четными
Program as; Блок-схема
Begin clrscr;
If a mod 2=0 then writeln(‘четное’)
(Вводим значение 5,6)
|
Задание 7.Решить пример -4x2+8,x<0
Y=
x2 +3x+4,x>0 Блок-схема
Uses crt;
Begin clrscr;
If x>0 then Y:=-4*sqr(x)+8
|
Задание 8. Даны три вещественных числа a,b,c. Проверить выполняется ли неравенство a<b<c.
program as; Блок-схема
begin clrscr;
readln(a,b,c);
else writeln(‘не верно’);
readln;
|
Задание 9.Даны три вещественных числа. Определить, имеется ли среди них хотя бы пара равных между собой чисел
Program as; Блок- схема
Var a,b,c:integer;
Writeln(‘Введи 3 числа’);
end.
|
Задание10.Дано вещественное число. Вывести на экран его абсолютную величину
Program as; Блок-схема
Var a:real;
if (a>0) or (a<0)then writeln(abs(a):5:2);