Редактирование и отладка программ с помощью Pascal (стр. 4 из 12)
Program as; Блок-схема
Uses crt; 
Var a: integer; 
Begin clrscr; 
Writeln(‘Введи 2х зн. число’); 
Readln(a);If (a div 10=3) or (a mod 10=3)
Then writeln(‘Входит’);Else writeln(‘Не входит’);
Readln;
End.
 |  |
(Вводим значение 53)Ответ: Входит
 |
Задание 5. Дано 2х зн. число. Определить какая из его цифр больше
Program as; Блок-схема
Uses crt; 
Var a,d,e, max: integer; 
Begin clrscr; Writeln(‘Дано 2х зн. число’); 
If d>e then max:=d else max:=e; 
Writeln(‘Макс=’,max); 
Readln;  |
(Вводим значение 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.Решить пример -4x2+8,x<0
Y=
x2 +3x+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
readln;  |
Задание 8. Даны три вещественных числа a,b,c. Проверить выполняется ли неравенство a<b<c.
program as; Блок-схема
uses crt; 
var a,b,c:integer;begin clrscr;
writeln(‘Введи три числа’);readln(a,b,c);
if (a<b) and (b<c) then writeln(‘верно’)else writeln(‘не верно’);
readln;
end. 
(Вводим значение 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;