1. PascalABC.NET
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('Введите число:');
Writeln((x>=0) and (x<=2)?'Да':'Нет')
end.
<u>Пример</u>
Введите число: 1.17
Да
2. На этой же версии в стиле традиционного школьного паскаля
var
x:real;
begin
Write('Введите число: '); Read(x);
if (x>=0) and (x<=2) then Writeln('Да')
else Writeln('Нет')
end.
Program ZADACHA;
var a,b,c,d,k:integer;
begin
c:=0;
k:=0;
d:=0;
repeat
begin
readln(a);
b:=a;
c:=c+1;
if (a<-3)
then
begin
d:=b+a;
k:=k+1;
end;
end;
until c=8;
writeln(d);//ETO SUMMA
writeln(k);//Eto KOLICHESTVO
readln;
end.
Не сказанно сколько см юля но ведь девушки не выростают до токого размера
Вторая аналогично 16кбайт=1024*8*16 бит. на каждый пикслель приходится (1024*8*16)/(256*128)=4бита. при такой глубине максимальное число цветов 2^4=16.
Ответ:
12
Объяснение:
Можно представить что данный диапазон это прямоугольник, в котором верняя грань равна 3 ячейкам - столбцы A B C, а боковая грань равна 4 ячейкам, т.к. состоит из строк 2 3 4 5
Общее количество ячеек:4*3=12