Абсолютная ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Программа, отвечающая за работу данного устройства или оборудования, которая обеспечивает связь между компьютером и устройством. Драйверы еще иногда называют «дрова» (компьютерный жаргон) , а любое устройство называют еще «девайсом» .
Program danya;uses crt;var a,b,c:integer;beginclrscr;for a:=1 to 1000 do begin for b:=1 to 1000 do begin for c:=1 to 1000 do begin if (a+b+c=407) and (a*b*c mod 1000000 = 0) then writeln ('',a,' ',b,' ',c); end; end;end;<span>end.</span>
Program Pr1;
uses crt;
var f,c:real;
begin
clrscr;
c:=15;
while c<=30 do begin
f:=c*1.8+32;
writeln(c,'-Цельсия; Фаренгейт - ',f);
c:=c+1;
end;
end.
2)
Program Pr1;
uses crt;
var stroka:string;
i,v,x:integer;
Begin
clrscr;
readln(stroka);
x:=0;
v:=0;
for i:=1 to length(stroka) do begin
if stroka[i]<>' ' then v:=v+1;
if (stroka[i]='т') or (stroka[i]='Т') then x:=x+1;
end;
writeln('Количество букв- ',v,' Количество букв Т -',x);
end.
2 и 4
4 - только если это не опечатка при создании темы. Есть тип Boolean