Число делится на 5 тогда, когда последняя цифра делится на 5, т.е. если она 0 или 5
Var
n:integer;
Begin
Write('Введите число ');
Readln(n);
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
<span>End.</span>
1) Нет. Емкость одностороннего DVD 4.7 Гб, емкость CD - 0.78 Гб.
2) Нет. Согласно стандарту на аудиодиски (CDDA), носящему название Red Book, максимальная продолжительность записи не может превышать 74 минуты.
3) Нет. См. 1).
4) Да. Типовой диаметр обоих дисков составляет 120 мм.
5) Да. Проигрыватели выпускаются с обратной совместимостью, т.е. более новая модель умеет проигрывать все старые форматы.
Pascal ABC...................
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=4 then writeln(четверг');
end