Лена -1;2;3;4;5;6 Прошла в комнату -Да
Саша-1;2;3;4;6; Прошел в комнату- Нет
Аппара́тное обеспе́чение<span>, </span>аппаратные<span> средства, компьютерные комплектующие, «железо», (англ. hardware) — электронные и механические части вычислительного устройства, входящие в состав системы или сети...</span>
1) если введённое число попадёт в промежуток от 1 до 11, то программа выполнит сложение 0+ введённое число и выведет результат.
Например,
Вводим 3, 0+3=3, программа выведет 3
2) аналогично
<span>2) basa.txt, третий вариант не подходит как так там стоит ":"</span>
1) <u>Определение теплоты</u> <u>
</u><u />Var q,i,rt:real;
Begin
Write('i='); readln(i);
Write('Rt='); readln(rt);
q:=(i*i)*rt;
Writeln('Q=',q);
End.
2) <u>Площадь треугольника</u>
Var s,p,a,b,c:real;
Begin
Write('A='); readln(a);
Write('B='); readln(b);
Write('C='); readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)*(p-b)*(p-c);
s:=sqrt(s);
Writeln('S=',s);
End.
3)<u>Массив</u>
Var mas:array[1500..3700] of integer;
i,n:integer;
Begin
for i:=1500 to 3700 do begin
mas[i]:=i;
if (mas[i] mod 206 = 0) then writeln(mas[i]);
end;
end.