procedure summa(s, num: integer);
begin
s:= s + num;
end;
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);
write(sum);
end.
1) x>=0 и x<=2 и y>= 0 и y<=1
<span>2) L >=1 и L<=2 где L = Корень(x*x + y*y) </span>
Есле я неошибаюсь то может из 200 из них 100
const DOLLAR = 68; // доллар в руб
const EURO = 75; // евро в руб
let rub = prompt("Введите сколько хотити перевести");
rub = parseInt(rub, 10);
alert("Доллары: " + rub/DOLLAR + "\nЕвро: " + rub/EURO );