A1=2
A2=4
A3=5
A4=3
Я бы сказал какая это таблица, но там не видно все
Просто подставь и сразу будет видно какая таблица
Будет равно 17 мб. епыкпыамп
Var k:integer;
begin
for var i:=100 to 999 do
if (i mod 4 =0) and (i mod 3 <> 0) then inc(k);
writeln(k);
end.
ОТВЕТ
150
===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y := x * x + 1.8;
var k: real;
if y < 10 then
k := Sin(y)
else if y > 20 then
k := Tan(y)
else
k := y * y;
Print(k)
end.
Программа на паскале нужна?
program pro;
var S,V,Result:integer;
begin
readln(S,V);
Result:=S-V;
writeln(Result);
end.