Практикум по решению задач на ЭВМ. Тарова И.Н - 24 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
A,B,C:real; {исходные числа}
min:real;
begin
clrscr;
writeln('Введите три числа');
read(A,B,C);
min:=A;
if B<min then min:=B;
if C<min then min:=C;
writeln ('минимум=',min);
readln;
end.
Лабораторная работа №3
Простейшая целочисленная арифметика
1) Дано действительное число x. Получить целую часть числа; число, ок-
ругленное до ближайшего целого; число без дробной части.
2) Дано натуральное число n (n<=9999). Является ли это число палиндро-
мом с учетом четырех
цифр? Верно ли, что число содержит ровно три
одинаковые цифры? Верно ли, что все цифры числа различны?
3) Определить является ли данное целое число четным.
{Проверка на четность}
program chet(input,output);
uses CRT;
var a:integer;
begin
clrscr;
writeln('Введите число для проверки на четность');
read(a);
if a mod 2=0 then
writeln ('чисо четное')
else
writeln ('число не четное');
24
                               Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


     A,B,C:real; {исходные числа}
     min:real;
  begin
     clrscr;
     writeln('Введите три числа');
     read(A,B,C);
     min:=A;
     if B

Страницы