После выполнения команд: circle(100,100,75); arc(100,100,50,225,315);line(70,50,80,50); line( 120,50,130,50); что будет изображено в графическом окне? а) дуга с двумя отрезками б) круг с двумя отрезками В) смайлик г) круг, дуга, линия
По горизонтали: 1. Механическое устройство ввода, преобразующее движение в сигнал(мышь) 2. Самое используемое из кнопочных устройств ввода (клавиатура) 3. Какой информационный процесс обеспечивает микрофон?(ввод) 4. Главные составляющие компьютера: оперативная память, материнская плата и...(процессор) 5.Объявление переменной и присваивание ей определённого значения-это...(инициализация) По вертикали: 1. Какой информационный процесс обеспечивают динамики? (вывод) 2. Как иначе называется оперативная память? (озу) 3. Какой информационный процесс обеспечивает носитель информации?(хранение) 4. Язык программирования, созданный Клаусом Виртом.(Паскаль) 5. Устройство выполнять заданную, чётко определённую изменяемую последовательность операций(компьютер)
program raf105;
var abc,ab,bc:integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
ab:= abc mod 100;
bc:= abc div 10;
if ab = bc
then writeln('Число состоит из одинаковых цифр')
else writeln('Число не состоит из одинаковых цифр');
end.
ОбъяснениеДля выполнения задачи достаточно найти первые 2 цифры и последние 2 цифры если они равны, то число состоит из одинаковых цифр
abc mod 100 Убирает все сотни из числа.
Например было число 123, стало 23.
482 стало 82
abc div 10 Считает сколько в числе целых десяток, но не считает остаток.
Например было число 123, стало 12
482 стало 48
Сравнивание 2 первых и 2 последних цифр
253 25 и 53 не равны, значит число не состоит из одинаковых цифр
121 12 и 21 не равны, значит число не состоит из одинаковых цифр
111 11 и 11 равны, значит число состоит из одинаковых цифр