Program calculator;
var a, b, c: integer;
begin
writeln('Введи 2 числа: ');
readln(a,b);
c:=a+b;
writeln(c);
end.
1.
begin
var a,b:real;
read (a,b);
writeln ('Периметр = ',(a+b)*2,' Площадь = ',a*b);
end.
Я выхожу на прогулку, потому что на улице красиво и не холодно.
Собака - лучший друг человека, она никогда не предаст.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-3,3); a.Println;
var s:=a.Select((x,i)->(x,i)).Where(t->t[0]=0).ToArray;
if s.Length>0 then begin
var b:=ArrGen(s.Length,i->s[i][1]+1).ToArray;
b.Println(',')
end
else Writeln('Нет нулевых элементов')
end.
<u>Пример</u>
n= 20
1 -3 0 3 -1 0 1 -2 1 1 0 -3 -3 -3 -2 2 -3 3 1 -1
3,6,11