Контрольная работа на тему Информатика
-
Оформление работы
-
Список литературы по ГОСТу
-
Соответствие методическим рекомендациям
-
И ещё 16 требований ГОСТа,которые мы проверили
Скачать эту работу всего за 290 рублей
Ссылку для скачивания пришлём на указанный адрес электронной почты
Содержание:
Задание 1 2
Задание 2 3
Задание 3 4
Задание 4 6
Задание 5 7
Задание 6 9
Задание 7 11
Задание 8 12
Задание 9 14
Задание 10 16
Задание 11 18
Задание 12 20
Задание 13 22
Задание 14 24
Фрагмент текста работы:
Задание 1
Написать программу, которая печатает значение логического выражения TRUE или FALSE, в зависимости от ложности или истинности следующего утверждения:
первая и последняя цифры трехзначного числа равны.
Программа:
var
z : string;
l, r : integer;
b : boolean;
begin
write('Введите 3-х значное число ');
readln(z);
l := length(z); { проверяем длину числа }
if (l<>3) then
writeln('Ввели не 3-хзначное число!')
else begin
b := TryStrToInt(z,r); { проверяем или это число }
if (b=false) then
writeln('Ввели не число!')
else
if (z[1]=z[3]) then { сравниваем 1 и 3 символы }
writeln('TRUE')
else
writeln('FALSE');
end;
