Составьте программу для определения наименьшего из 2-х целых чисел.

Знания

Информатика

1 ответ:

1svetlana [16]4 года назад

0 0

Var a,b:integer;
beginwriteln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
if a>=b then writeln('Наименьшее число равняется ',b)
else writeln('Наименьшее число равняется ',a);
<span>end.</span>

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

Помогите решить в паскале авс.6. Дан двумерный массив размерности nxm. Посчитать количество нечетных элементов матрицы. Полученн

kasya lu

Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.

0 0

4 года назад

Дан массив состоящий из 10 целых чисел. Вывести на экран все двузначные элементы массива

Бесплатно голоса [31]

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

begin
var a:=ReadArrInteger('Введите массив', 10);
a.Where(t -> (abs(t) > 9) and (abs(t) < 100)).Println();
end.

0 0

1 год назад

Запросить у компьютера через Pascal ABC три стороны треугольника и найти его периметр. Помогите пожалуйста, очень надо! Заранее

JakeWilliams31

Var a,b,c:longint;
Begin
read(a,b,c);
writeln(a+b+c);
End.

0 0

4 года назад

Помогите срочно! Динозавру нужно собрать звезды с помощью команд. Даю 30 баллов кто правильно даст команды. right()? left() - пу

Бузилов Олег [4]

Ответ:

объясни еще раз вопрос ,какой динозавр?

0 0

4 года назад

ПОЖАЛУЙСТА составить программу нахождения суммы трех чисел числа целые.

аЛИНА1234321

Var a,b,c,d:real;
begin
writeln('Первое число');
readln(a);
writeln('Второе число');
readln(b);
writeln('Третее число');
readln(c);
d := a + b + c;
writeln('Ответ:',d)
end.

0 0

3 года назад