Uses crt;var a:array[1..100] of integer;
b,k,l,i,n:integer;
begin
writeln('Skolko chesel vy bydete vvodit?');
read(n);
for i:=1 to n do begin
write('Vvedite ',i,' chislo: ');
read(a[i]);
end;
for i:=1 to n do begin
b:=a[i] div 100;
k:=a[i] div 10 mod 10;
l:=a[i] mod 10;
if (b mod 2 = 0) and (k mod 2 = 0 ) and (l mod 2 = 0) then writeln(a[i]);
end;
<span>end.</span>
Ну вот смотри например размер шрифта ~обозначения h, размер -1,8/2,5/3,5/5/7/10/14/20.высота прописных букв и цифр, высота строчных букв, толщина линий шрифта, ширина буквы, расстояние между буквами, минимальный шаг строк,, минимальное расстояние между словами.
var n,m,i :Integer;
begin
readln(n);
readln(m);
m:=m * 60;
while i<>n do
begin
m:=m+10;
i+=1;
end;
write(m div 60+' часа(ов)');
end.
Одноранговая локальная сеть является наиболее распространённым вариантом создания как домашних, так и корпоративных ЛБС(Лёгкое бомбардировочное соединение).
Это обусловлено тем, что подобные сети позволяют каждому клиенту
(пользователю) в сети самостоятельно управлять различными сетевыми устройствами например: принтерами.
Кроме того, создание одноранговой сети в большинстве случаев значительно проще и дешевле настройки централизованной компьютерной сети с подключением серверов
Const n=20;
var sum:integer;
i:byte;
begin
sum:=0;
i:=1;
repeat
sum := sum + i;
i := i+1;
until (i=n);
end.