Мог бы сам зайти и посмотреть, а так добавляет возможность высчитывать функции типа синусов, косинусов, числа пи и тд.
Людмила902
13.12.2021
Var v1,v2,t1,t2,s1,s2,so: integer; begin v1: =0; v2: =0; while (v2> =v1) do begin writeln('введите скорость лодки'); readln(v1); writeln('введите скорость течения реки'); readln(v2); if (v2> =v1) then writeln('введены неправильные данные'); end; writeln('введите время движения лодки по озеру'); readln(t1); writeln('введите время движения лодки по реке против течения'); readln(t2); s1: =v1*t1; s2: =(v1-v2)*t2; so: =s1+s2; writeln('длина общего пути ',so); end.
beliaevabeliaeva-olesya35
13.12.2021
//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) const n = 10; var a: array[1..n] of integer; i,s: integer; begin for i: =1 to n do begin a[i]: =random(31)-15; write(a[i]: 4); if (abs(a[i]) mod 10 = 5) or (abs(a[i]) mod 10 = 8) then s: =s+a[i]; end; writeln; writeln('сумма оканчивающихся на 5 или 8 : ', s); end. тестовое решение: 8 12 4 2 -10 10 -10 2 8 -13 сумма оканчивающихся на 5 или 8 : 16