Ответ:
Программу?
uses crt;
var fiz,math,inf:integerl
begin
*
readln(fiz,math,inf);
if (fiz = 4) and (math = 4) and (inf = 4) or (fiz = 5) and (math = 5) and (inf = 5) then write('Ученик получит стипендию');
end.
* по желанию, можешь добавить на место звездочки write('Физика, Математика, Информатика сданы на: ');
Ответ:
15 или 16 в зависимости от используемой системы единиц. См. решение
Объяснение:
Текстовый документ занимает память :
N*2048*2 байт ⇒ N*4096
Растровый документ занимает:
N*1536*1024*3 байт (24-битная = 3 байтная, т.к. 1 байт=8 бит) ⇒
N*4718592.
Получаем неравенство:
N*4718592 - N*4096 > 70000000 (если за 1 Мбайт принять 1000000 байт)
N*(4718592-4096) > 70000000
N > 14 (ответ 15)
N*(4718592-4096) > 73400320 (если за 1 Мбайт принять 1 048 576 байт)
N > 15 (ответ 16).
Ответ:
program multiple;
var
N, P: Real;
begin
P := 1;
WriteLn ('Введете числа: ');
repeat
ReadLn (N);
if N <> 0 then
P := P * N;
until N = 0;
WriteLn ('Произведение = ', P :15 :5);
ReadLn;
end.
Решение достаточно простое. В самом деле, "Повтори 10" говорит нам о том, что будет нарисовано нечто из 10 одинаковых элементов.
Что именно выполняется 10 раз? Поворот направо на 20 градусов, затем рисование прямой линии длиной 36 единиц и снова поворот направо, но уже на 40 градусов. Т.е. угол между прямыми составит 40+20=60 градусов.
За 6 циклов будет нарисован правильный шестиугольник (6х60=360 градусов), а оставшиеся 4 шага пройдут по уже нарисованным линиям, т.е. 4 шага лишние.
<em>Ответ: 3) правильный шестиугольник</em>