Var a:real;
begin
readln(a);
if(a mod 2 = 0) writeln(a+30) else writeln(a*50);
end.
Тебе надо сделать это в паскале правда или словестно
Словестно
1 идём сверху в низ
2 рисуем линию в права
3 по середине линии делаем линию вверх
4 возращяемся на горизонтальную линию
5 делаем отступ
6 и рисуем линию вверх
а если в паскале то надо подключать модуль graphabc
По коду голубого цвета определяем, что для кодирования цвета одной точки используется 4 бита.
125 Кбайт = 125*1024 байт = 125*1024*8 бит
Количество точек изображения = 125*1024*8 / 4 = 256000
500*512 = 256000
640*200 = 128000
320*400 = 128000
512*400 = 204800
Ответ: А)500*512
200 символов в минуту * 5 минут = 1000 символов, которые занимают 375 байт, или 375*8=3000 бит. Значит, каждый символ занимает 3000\1000=3 бита, а размер алфавита - 2^3=8 символов.
Program MaxD;
// Вводятся площади квадратов, окончание ввода по значению 0
// Найти диагональ максимального размера.
// Поскольку диагональ равна квадратному корню из удвоенной площади,
// надо найти максимальную площадь, а затем вычислить диагональ.
var
S,SMax:real;
begin
SMax:=0;
writeln('Вводите площади квадратов, 0 - конец ввода');
repeat
readln(S);
if s>sMax then sMax:=s
until s=0;
writeln('Максимальная длина диагонали равна ',sqrt(2*sMax))
end.
Тестовое решение:
Вводите площади квадратов, 0 - конец ввода
5
10
12
13.6
11
18
0
Максимальная длина диагонали равна 6
