4 года назад

Помогите решить, нужно составить программу в паскале. (задача 8)

Знания

Информатика

1 ответ:

tamaravy4 года назад

0 0

Var a, b: integer;
begin
write('Первое число = ');
readln(a);
write('Второе число = ');
readln(b);
if a > b then
writeln(a + b)
else
writeln(a * b);
end.

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

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

Masya741 [1.4K]

begin

var n1 := ReadlnInteger();

var s := n1.ToString;

var n2 := s[::-1].ToInteger;

Print(n2)

end.

0 0

4 года назад

Последовательно по одному вводятся n целых чисел x, получить сумму тех чисел последовательности, которые удовлетворяют условию |

всяправда [2.6K]

Блок-схема - в прилагаемом файле.

0 0

1 год назад

Какои професия обновить символов прошу помогите

alissa1 [41]

Сформулируйте вопрос по другому

0 0

4 года назад

Зная,что каждая буква исходного текста заменяется каждой третьей после неё буквой в алфавите,который считается написанным по кру

Ильяааппп

1)нлрзпгхсёугч
2)усдсх
3)црлеиуфлхзх
4)криптогрфаия- выходит по вашим буквам, там наверно у вас надо поменять Ч и Г. будет криптография

0 0

4 года назад

Объясните, а? Пожалуйста Дан двумерный массив размером N*M. Сформируйте линейный массив, где каждый элемент равен первому встре

DarkCry [14]

Const
n1 = 20;
m1 = 20;

var
a: array[1..n1, 1..m1] of integer;
b: array[1..m1] of integer;
i, j, m, n: integer;

begin
Write('Введите через пробел число строк и столбцов массива: ');
Readln(n, m);
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
    for j := 1 to m do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
end;
Writeln('Сформированный массив');
for j := 1 to m do
begin
    i := 1;
    while (i <= n) and (a[i, j] >= 0) do i := i + 1;
    if i <= n then b[j] := a[i, j] else b[j] := -99;
    Write(b[j]:4)
end;
Writeln
end.

<u>Тестовое решение:</u>
Введите через пробел число строк и столбцов массива: 3 10
Исходный массив
-11 -18 -42 -22 -9   2 21 15 40 -3
   4 -5 40 -13 -44 -37 43 47   1 -39
20 50 21 -18 -10   6 12 -10 43 -37
Сформированный массив
-11 -18 -42 -22 -9 -37 -99 -10 -99 -3

0 0

4 года назад