Есть ответ 👍

Составьте программу, выполняющую умножение двух чисел, введеных с клавиатуры. программа должна иметь дружественный интерфейс

225
227
Посмотреть ответы 3

Ответы на вопрос:

AkaNika
4,7(85 оценок)

//pascalabc.net //версия 3.3, сборка 1634 begin write('их произведение: ',readreal('введите 1 число: ')*readreal('введите 2 число: ')); end.

Var  a, b, res: integer; begin  writeln('введите число a и b: ');   read(a, b);   res : = a * b;   write('результат: ', res); end.

// pascalabc.net 3.0, сборка 1088 const   n=6; var   a: array[1..n] of integer;   i: integer; begin   randomize;   writeln('*** исходный массив ***');   for i: =1 to n do begin       a[i]: =random(1001);       write(a[i],' ');   end;   writeln;   writeln('*** результат ***');   write(a[1],' ');   for i: =2 to n-1 do begin       if odd(a[i]) then a[i]: =a[i]+a[n]       else a[i]: =a[i]+a[1];       write(a[i],' ');   end;   writeln(a[n]) end. тестовое решение: *** исходный массив *** 706 46 715 899 103 308 *** результат *** 706 752 1023 1207 411 308

Популярно: Информатика