//Pascal ABC.NET v3.1 сборка 1172
Const
n=5;
Var
ar1,ar2:array[1..n] of integer;
i,k,m:integer;
begin
writeln('Reading array A:');
for i:=1 to n do
readln(ar1[i]);
writeln('Reading array B:');
for i:=1 to n do
readln(ar2[i]);
writeln('Res:');
for i:=1 to n do
if ar1[i]>5 then
begin
writeln(i);
break;
end;
for i:=1 to n do
if odd(ar2[i]) then
begin
writeln(ar2[i]);
break;
end;
end.
Пример ввода:
Array A:
1
2
4
5
9
Array B:
1
4
7
9
13
Пример вывода:
Res:
5
1
var a,b,c,d:integer;
begin
writeln('Вступительный балл');
readln(a);
writeln('1 экзамен ');
readln(b);
writeln('2 экзамен ');
readln(c);
writeln('3 экзамен ');
readln(d);
if a<(b+c+d) then
writeln('Ученик принят');
else
writeln('Ученик не принят');
end.
Const
USD=64.05; // Официальный курс доллара США к рублю на 08.07.2016
EUR=70.95; // Официальный курс евро к рублю на 08.07.2016
var
RUR:real; // сумма в российских рублях
begin
Writeln('Введите сумму в российских рублях: ');
Read(RUR);
Writeln('В долларах США: ',RUR/USD:0:2);
Writeln('В евро: ',RUR/EUR:0:2);
end.
<u><em>Тестовое решение:</em></u>
Введите сумму в российских рублях:
15200.76
В долларах США: 237.33
В евро: 214.25
1)
//PascalABC.NET v3.3 1633
begin
for var i:=3 to 10 do
writeln(i+'^3 = '+Power(i, 3));
end.
2)
//PascalABC.NET v3.3 1633
begin
for var i:=12 to 25 do
if (i mod 6 = 2) or (i mod 6 = 5) then
writeln(i);
end.
<span>а) ні</span>
<span>б) так</span>
<span>в) так</span>
<span>г) так</span>