калькулятор - вычислительное устройство
Не уверен что правильно, так как не понял что требуют.
program chisla;var a,b,c,d,e,f,i,r: integer;beginwrite('Введите первое число:');readln(a);write('Введите второе число:');readln(b);write('Введите третье число:');readln(c);writeln('Сумма трех чисел:',(a+b+c));write('Стоимость перчаток:');read(e);write('Стоимость портфеля:');read(f);write('Стоимость галстука:');read(i);r:=(a+b+c)-(e+f+i);writeln('Кол-во денег оставшиеся после покупки:',r);end.
Система программа установки
Монитор,потому-что сканер,клава и микро вводят в комп информацию,а монитор выводит информацию
{на основе формулы арифметической прогессии}
var
n: integer;
begin
readln(n);
writeln((5+5+5*(n div 5 -1))/2) ;{((a1+a1+d*(n-1))/2)}
end.
{или перебором без математики}
var
i,n,k: integer;
s:real;
begin
k:=0;
readln(n);
for i:=1 to n do
if i mod 5=0 then begin s:=s+i; k:=k+1; end;
writeln(s/k) ;
end.
Пример
n=100
summa=52.5