<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
program Задача;
begin
var x,y:integer;
Read(x,y);
if (x>0) and (y>0) then
Writeln('Точка принадлежит 1-ой четверти КП')
else
Writeln('Точка не принадлежит 1-ой четверти КП')
end.
var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.
Сон Паскаль итальянский музыкант, приехавший в Казахстан из Лондона Его шуточные интерпретации мировых хитов вроде «Englishman in Shymkent» в дуэте с Ануаром Нурпеисовым завоевали большое внимание и одобрение казахстанской публики. Премьера клипа была представлена не только казахстанскому зрителю, также она прошла и в шотландском городе Эдинбурге.До приезда в Казахстан Паскаль работал в Италии. Затем жил в Англии и только потом попал в Казахстан по приглашению малоизвестной девушки, которая оказалась на его концерте. Сон и не думал задерживаться здесь, лишь хотел открыть для себя новую страну.<span>Сегодня музыкант уже записывает новые песни в дуэтах с известными казахстанскими исполнителями.</span>
#include <iostream>
using namespace std;
int main()
{
double sum = 0;
for (int i = 0; i < 10; i++)
{
int x;
cin >> x;
sum += x;
}
cout << sum / 10;
return 0;
}