1) Составить программу на языке Паскаль, которая запрашивает числа а, в,с и находит значение d по формуле d=b2-4ac. 2) Составить программу на языке Паскаль, которая находит площадь треугольника по трем сторонам а, в, с, которые запрашиваются с клавиатуры ИНФАРМАТИКА

👇

Открыть все ответы

Ответ:

nastamalysheva

22.04.2022

Информация - это любые сведения, принимаемые и передаваемые, сохраняемые различными источниками. Информация - это вся совокупность сведений об окружающем нас мире, о всевозможных протекающих в нем процессах, которые могут быть восприняты живыми организмами, электронными машинами и другими информационными системами.

Первоначально сведения получают при органов чувств – зрения, слуха, обоняния, вкуса и осязания. Для передачи информации на ближнем расстоянии существует язык, который позволяет сообщить полученные сведения другому человеку. Кроме того, передать что-либо другому человеку можно, написав письмо либо в процессе спектакля, а также при разговоре по телефону. Несмотря на то, что в последнем примере используется средство связи, то есть промежуточное устройство, оно позволяет передать сведения в непосредственном контакте.

Для передачи данных от человека к компьютеру необходимо введение ее в память устройства. Информация может иметь разный вид, о чем будет идти разговор далее.

Передача от компьютера к компьютеру происходит посредством промежуточных устройств (флеш-карты, интернета, диска и т. д.).

#телефон, компьютер и тд

4,6(89 оценок)

Ответ:

pavlushkaaa

22.04.2022

Решение на паскаль.
начало решения задач одинаковое, а дальше см. внизу

program xxx;
var b: array [1..6, 1..6] of integer;
i, j, s : integer;
begin
for i:= 1 to 6 do
for j:=1 to 6 do
b[i,j]:= random(131)-65;
writeln ('исходная матрица В:');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (b[i,j]:4);
writeln
end;

задание 1.
s:=0;
for i:= 1 to 6 do
if b[i,3]>0 then s:=s+b[i,3];
writeln ('сумма положительных элементов 3-го столбца', s)
end.

задание 2.
i:=2;
while i<=6 do begin
  for j:= 1 to 6 do
  if b[i,j]<0 then b[i,j]:=0;
  i:=i+2
end;
writeln ('полученная матрица В:');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (b[i,j]:4);
writeln
end
end.

4,8(53 оценок)

Это интересно:

Здоровье

30.06.2020

Как обезопасить себя от сна, когда усталость уже на грани...

Стиль-и-уход-за-собой

25.11.2020

Как поддерживать здоровье волос: советы и рекомендации от экспертов...

Дом-и-сад

19.11.2020

Как вырастить куст розы из черенка: шаг за шагом...

Кулинария-и-гостеприимство