Var
a,b:real;
begin
writeln('Сколько стоит электричество?');
read(a);
writeln('Сколько показывает <span>счетчик</span>?');
read (b);
writeln('Вам нужно заплатить ', a*b);
end.
Настольные, ноутбуки, нетибуки(кстати я на нем сейчас пишу), планшетные, игровые приставки, карманные, настольные миникомпьютеры.
Настольные - это большие. Состав: монитор, клавиатура, системный блок. Можно подключить принтер, колонки, сканеры и т.д.
Ноутбуки - плоские, переносные. Все это вместе и монитор и клавиатура и системный блок.
Нетбуки - маленькие ноутбуки. Дешевее чем ноутбук, легче.
Планшетные - имеют сенсорный экран. очень маленькие.
Карманные - как планшетные. Но можно носить даже в карманах.
Игровые приставки - как компьютер но можно подключить к телевизору.
=)=)=)!!!
Ответ 2)
Если надо расписать, то напиши мне, распишу)
Var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=a to n-1 do
begin
d:=a*a+b*b;
c:=1;
while c*c<d do c:=c+1;
if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
end;
end.
Пример:
20
<span>3 4 5
5 12 13
6 8 10
8 15 17
9 12 15</span>