4 года назад

Написать программу которая вычисляет сумму произведения и среднее арифметическое двух целых чисел введеных с клавиатуры

1 ответ:

vasenna [336]4 года назад

0 0

Var a,b,c,d:integer;
e:real;
begin
writeln('Введите а и б: ');
readln(a,b);
c:=a+b;
d:=a*b;
e:=(a+b)/2;
Writeln('Сумма двух чисел: ',c);
Writeln('Произведение двух чисел: ',d);
Writeln('Среднее арифметическое двух чисел: ',e);
<span>end.</span>

Читайте также

ИНФОРМАТИКА 10 КЛАСС . ПРОГРАММИРОВАНИЕ ПАСКАЛЬ.Написать ПРОЦЕДУРУ, которая принимает на вход числа m и n и печатает на экране п

Дарья Наумова [11]

program yaneznayupascal;

procedure PS;

var m, n, S, P : integer;

begin

write('Введите число m (длина): ');

readln(m);

write('Введите число n (ширина): ');

readln(n);

S := m*n;

P := 2*m+2*n;

write('S = ', S);

write('P = ', P);

end;

begin

PS;

end.

0 0

4 года назад

Что делает клавиша Тав , и где её использовать?

ТТ20 [7]

Tab можно использовать как красную строку

0 0

3 года назад

20 БАЛЛОВ!!!!ПОМОГИТЕ!!!!Номер 3

Алексей09071977

Внешние: глобус, телефон, компьютер, школа.
Внутренние: ластик, сигнал, карандаш, окно.

Вроде так.

0 0

4 года назад

Найдите значение при выполнении программы S:=1; For z:=1 to 8 do a[z]:=sqr(z); for k:=1 to 8 do if a[k]>9 then a[k]:=2; for z

Елена42 [14]

1)S=1*2*2*2*2*2=32

2) с

3)f

0 0

3 года назад

Дан массив состоящий из 100 целых чисел выведите все числа которые повторяются в этом массиве а)несколько раз б) только по одн

Роман Говоруха [300]

Первое

var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=2 to 99 do if (a[i]=a[i+1]) or (a[i]=a[i-1]) then writeln('a[',i,']=',a[i]);
end.

Второе

var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
if a[1]<>a[2] then writeln('a[1]=',a[1]);
for i:=2 to 99 do if (a[i]<>a[i+1]) and (a[i]<>a[i-1]) then writeln('a[',i,']=',a[i]);
if a[100]<>a[99] then writeln('a[100]=',a[100]);
end.

0 0

4 года назад

Прочитать ещё 2 ответа