Var a,sum,i,ii:integer;
begin
sum:=0;
readln(a);
for i:=1 to 4 do
begin
ii:=a mod 10;
a:=a div 10;
sum:=sum+ii*ii;
end;
writeln(sum);
end.
1 мегабайт-1024 килобайтов, больше 1500килобайтов, 1гигабайт а 1000 килобайтов меньше и 10000битов:1024=9байтов так что они меньше
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=1 to n-1 do
if ar[i]>ar[i+1] then
begin
writeln('Убывает на одном из участков');
exit;
end;
writeln('Возрастает');
end.
Ответ:
1 - Основные составные части типичного персонального компьютера:
1 — монитор, 2 — материнская плата, 3 — центральный процессор, 4 — оперативная память, 5 — карты расширений, 6 — блок питания, 7 — оптический привод, 8 — жёсткий диск, 9 — компьютерная мышь, 10 — клавиатура 2 - суперкомпьютер - вычислительная машина, которая превосходит большинство современных компьютеров по характеристикам.
производственный компьютер - компьютер, который предназначен для работы программных средств в промышленном производственном процессе на предприятиях.
сервер - специальный компьютер, или же оборудование, которое предназначено для выполнения на нём сервисного по.
персональный компьютер - настольная электронно-вычислительная машина, имеющая характеристики бытового прибора. 3 - так как число , имеющих «тройки» по и , равно 7, то число учеников, имеющих только две «тройки» - по и по , равно 7-5=2. тогда 17-4-5-2=6 учеников имеют две «тройки» - по и по языку, а 22-5-2-11=4 ученика только две «тройки» - по и по языку. в этом случае без «тройки» учится 40-22-4-6-4=4 ученика. а имеют «тройки» по двум предметам из трех 6+2+4=12 человек.
Объяснение: