Не за что, надеюсь в ответ тоже будет благодарность. Прикреплен еще исходник
varn,i,min,c:integer;
a:array [1..100] of integer;
begin
n:=6;for i:=1 to n do
begin
writeln ('vvedi element massiva');
readln (a[i]);
end;
min:=a[1];
c:=1;
for i:=2 to n do
begin
if min>a[i] then begin min:=a[i];c:=i; end;
end;
writeln ('min=', min, ' nomer=',c);
readln;
end.

0 0

4 года назад

Напишите программу, которая считывает с клавиатуры переменные данные a, b, c и вычисляет следующие выражения: При любых значения

Виктор000 [205]

В 3-ем может быть ошибка. У меня 2-ой месяц нет матана, так что извиняй если что =) А так сама программа составлена правильно

var
a, b, c, o1, o2, o3: real;

begin
writeln('Введите a,b и c через пробел');
readln(a, b, c);
o1 := sqrt(2 * a - 3) / b - 1 + sqrt(sqr(c) + a * c + sqr(a));
o2 := sqrt(2 + sqrt(2 + sqrt(b + sqrt(abs(c - a)))));
o3 := 1 / 1 + 1 / a + 1 - b / 1 - c;
writeln('a) ', o1);
writeln('b) ', o2);
writeln('c) ', o3);
end.

0 0

1 год назад

Помогите сделать к сегодняшнему дню пожалуйста очееееееень сроооооооооооооооочно прямо сейчас умоляю вас график я построю а вот

1306 [46]

http://excelpractic.ru/kak-postroit-grafik-v-excel.html

0 0

4 года назад

Информатика - описать класс "собака" с методом. Помогите пожалуйста!!!

Людмила Зеленова

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

type
Собака=class

public

procedure Голос;
begin
Writeln('Гав!')
end;
end;

// пример вызова
begin
var Тузик:=new Собака;
Тузик.Голос
end.

0 0

4 года назад