<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
Writeln(ReadReal+ReadReal)
end.
<u>Пример</u>
13.5
273.162
286.662
<u>№2</u>
begin
ReadSeqInteger(ReadInteger).Where(t->t.IsOdd).Sum.Println
end.
<u>Пример</u>
6
15 -10 23 0 18 42
38
Sub aaa()
a = CInt(InputBox("Введите А"))
i = 27
Do While i >= 5
If Cells(i, 2) = a Then
MsgBox "Значение найдено в строке " + CStr(i)
Exit Sub
End If
i = i - 1
Loop
MsgBox "Значение не найдено"
End Sub
<span>var n,i,p:integer;
begin
write('n = '); readln(n);
p:=1;
for i:=1 to n do
if (i mod 3 = 0)and(i mod 10 = 1) then p:=p*i;
writeln('p = ',p);
end<span>.
Пример:
</span><span>n = 80
p = 1071
</span></span>
===== PacalABC.NET =====
begin
var L := ReadReal('Укажи расстояние до танка:');
Writeln('Программа завершается при попадании в танк');
Writeln('или при вводе числа, не попадающего в диапазон от 0 до 90');
var (g, v0, eps) := (9.81, 100.0, 1.0);
while True do
begin
var a := ReadReal('Введи угол наклона пушки, град:');
if not a.InRange(0.0, 90.0) then Exit;
var d := L - Sqr(v0) * Sin(2 * DegToRad(a)) / g;
if Abs(d) <= eps then
begin
Println('Ура! Попадание!');
Exit
end
else if d > 0 then
Println('Недолет')
else
Println('Перелет')
end
end.
<em>VAR</em>
<em> a,b,c: LongInt;</em>
<em>BEGIN</em>
<em> Read(a,b,c);</em>
<em> </em>
<em> if (a*b = 1)or(a*c = 1)or(b*c = 1) then Write('ДА')</em>
<em> else Write('НЕТ');</em>
<em>END.</em>
