-
Написать программу которая по веденному номеру определяло бы, билет является счастливым.
НАПРИМЕР: с одной стороны 3 цифры 123, и с другой стороны 3 цифры 123 - значит билетик СЧАСТЛИВЫЙ.-
Предмет:
Информатика -
Автор:
patty - 6 лет назад
-
Ответы 1
-
Ваша задачи была выполнена ^^
-
Автор:
tuckerrbju - 6 лет назад
-
0
-
-
Добавить свой ответ
Еще вопросы
-
Расскажиье о появлении сегунов в японии
-
Предмет:
История -
Автор:
sleeping beauty68 - 6 лет назад
-
Ответов:
1 -
Смотреть
-
-
обозначьте порядок дейтвий и выполните вычисления
90-7*5+26
6*(54-47)-
Предмет:
Математика -
Автор:
skylaryq6v - 6 лет назад
-
Ответов:
1 -
Смотреть
-
-
Паскаль. Найти произведение сумм положительных элементов столбцов матрицы
Подскажите пожалуйста, что нужно вписать программу, чтобы выводило ПРОИЗВЕДЕНИЕ сумм столбцов
вот программа, которая вычисляет сумму положительных элементов столбца
program hhhhhhh;
uses crt;
const mx = 20;
var a: array [1..mx, 1..mx] of integer;
i, r, j, c: integer;
p: double;
s:real;
found: boolean;
begin
randomize;
write('Введите кол-во строк (1..', mx, '): ');
readln(r);
writeln;
if (r<1) or (r> mx) then
writeln(' не верно введены данные!!!')
else
write('Введите кол-во столбцов (1..', mx, '): ');
readln(c);
if (c<1) or (c> mx) then
writeln(' не верно введены данные!!!')
else
writeln;
writeln(' Исходная матрица:');
writeln;
for i := 1 to r do
begin
for j := 1 to c do
begin
a[i, j] := -99 + random(199);
write(a[i, j]:4)
end;
writeln;
end;
writeln;
writeln;
writeln(' Сумма положительных элементов столбцов матрицы:');
writeln;
writeln;
for j := 1 to c do
begin
s:=1;
p := 0;
found := false;
writeln;
write('В ',j:2, ' столбце: ');
for i := 1 to r do
if (a[i, j] > 0)then
begin
p := p + a[i, j];
found := true
end;
if found
then writeln(p:0:0)
else writeln('Положительные элементы не найдены!!!');
end;
end.
Как мне посчитать произведение сумм????-
Предмет:
Информатика -
Автор:
erinmarquez - 6 лет назад
-
Ответов:
6 -
Смотреть
-
-
найдите производную функции f(x) = x-4/√x + 2 в точке x0 = 0,25
очень нужно! помогите, прошу!
-
Предмет:
Алгебра -
Автор:
hayleevkzk - 6 лет назад
-
Ответов:
1 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35934 -
Devilian
2792 -
Pikachu
2228 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1158 -
Poinntt
946 -
Bars
930 -
Queenmagic18
770
How much to ban the user?
1 hour
1 day
100 years