1) Сейчас сделаю остальное.
Program arifm;Var a, b, c, d, ar:real;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);writeln('Введите третье число');readln(c);writeln('Введите четвертое число');readln(d);ar:=(a+b+c+d)/4;writeln('Ответ:',ar);end.
Никак, покупай лицензию, там автоматическое обновление.
Var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do
read(a[i]);
for i:=12 downto 1 do
write(a[i],'; ');
end.
C/C++,поформулеарифметическойпрогрессии:
#include <iostream>
using namespace std;
int main(){
int n = 4;
int an = 2 + 2 * (n-1);
int sum = (2 + an) / 2 * n;
cout << sum;
return 0;
}