4 года назад

Помогите пожалуйста!!!!! подробное решение

Знания

Информатика

1 ответ:

Джин111 [12]4 года назад

0 0

Ответ в файле (там полное пояснение). надеюсь, что мой ответы ты отметишь как лучший.

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

9 моих друзей любят бананы, 8 апельсины, 7 сливы, 5 бананы и апельсины, 3 бананы и сливы, 4 апельсины и сливы и 2 бананы, апельс

Lerok [7]

если всё прибавить надо то 9+8+7+10+6+8+6=54

0 0

4 года назад

Составьте программу к задаче.Дано натуральное число n.Требуется найти его наименьшую цифру.

Пгпаггорплрилрирл [7]

var

n, d, min: integer;

begin

read(n);

n := abs(n); // Если введено отрицательное

min := 10;

while n > 0 do

begin

d := n mod 10;

n := n div 10;

if d < min then

min := d;

end;

write(min);

end.

0 0

3 года назад

Написать решение задач. 1) Дана непустая строка.Вывести коды её первого и последнего символа. 2)Дано целое число N (> 0) и си

AromaTT [19]

Смотрите вложения. Успехов Вам!

0 0

4 года назад

В паскале Дан двумерный массив размером n*n. Вычислить сумму и число положительных элементов в каждой строке.

piha79

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

begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Cуммы и число положительных элементов построчно:');
foreach var r in a.Rows do begin
 var s:=r.Where(t->t>0);
 Println(s.Sum,s.Count)
 end
end.

Пример
Количество строк (столбцов) в массиве: 6
*** Исходный массив ***
-98 -66 14 -63 78 -47
-7 59 -88 -7 6 -13
-89 26 29 78 -79 54
-99 55 -15 45 -14 -58
-59 -68 -93 55 63 -33
-72 -94 42 -89 -86 70
------------------------
Cуммы и число положительных элементов построчно:
92 2
65 2
187 4
100 2
118 2
112 2

0 0

3 года назад

Написать линейную программу на языке Паскаль для нахождения гипотенузы треугольника и реализовать её в среде Pascal ABC.NET с=√а

Олег85 [1]

Var a,b,c:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end.

Пример:
a = 3
b = 4
c = 5

0 0

4 года назад

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