Var
x:integer;
begin
writeln('Введите температуру воды:');
readln(x);
case x of
-193..0:writeln('Агрегатное состояние: твердое');
1..99: writeln('Агрегатное состояние: жидкое');
else writeln('Агрегатное состояние: газообразное');
end;
end.
//PascalABC.NET 3.2
begin
var k := ReadInteger;
var x := ReadReal;
write(k = 1 ? sin(x) : cos(x))
end.
var
n,i: integer;
a: array [1..10] of integer;
begin
n:=0;
for i:=1 to 10 do
begin
read (a[i]);
if a[i] mod 2=0 then n:=n+1;
end;
writeln ('четных значений -',n);
end.
Разработчики, создатели игр
а те, кто играют-геймеры
Фотошоп редакторы поисковые системы калькулатр