Var a,b,p:integer; d: real;
begin
readln(a,b);
p:=2*a+2*b;
d:=sqrt(sqr(a)+sqr(b));
writeln('периметр- ',p,' ' ,' диагональ- ',d)
<span>end.</span>
1 флешка
2 карта
3 сканер
4 Брандма́уэр
5 Опция
6 спам
По кол-ву букв и по определению подходит, а для более точного совпадения выложите сам кроссворд
Var h1,m1,s1,h2,m2,s2,t:integer;
begin
write('Start: ');
readln(h1,m1,s1);
write('Finish: ');
readln(h2,m2,s2);
t:=(h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
writeln(t);
end.
Пример:
<span>Start: 11 20 30
Finish: 13 15 40
6910</span>
16 777 216 = 2^i = 2^24 <span>
i = 24 бит
Всего точек 1024 х 768 = 786432
</span><span>24 х 786432 = 18874368 бита / 8 бит / 1024 байт = 2304 Кбайт / 1024 байт = 2,25 М байта</span>