Регистрация
arty181118
17.04.2023 18:36
Информатика
Есть ответ 👍

1. составить программу вывода на экран всех трехзначных чисел, кратных 9. (паскаль, тремя способами) 2. составить программу вычисления суммы всех трехзначных чисел, кратных 17.(паскаль, тремя способами)

197
316
Посмотреть ответы 2

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

CherryyLou
CherryyLou
4,4(12 оценок)

1)

program pr1; uses crt; var mas: array[100..999] of integer; i: integer; beginclrscr; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]); i: =100; {2 sposob}while i< =999 do begin if mas[i] mod 9=0 then writeln(mas[i]); i: =i+1; end; i: =100; {3 sposob}repeatif mas[i] mod 9=0 then writeln(mas[i]); i: =i+1until i=999end.

2)

program pr1; uses crt; var mas: array[100..999] of integer; i,v: integer; beginclrscr; v: =0; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 17 =0 then v: =v+mas[i]; writeln(v); i: =100; {2 sposob}v: =0; while i< =999 do begin if mas[i] mod 17=0 then v: =v+mas[i]; ; i: =i+1; end; writeln(v); i: =100; {3 sposob}v: =0; repeatif mas[i] mod 17=0 then v: =v+mas[i]; i: =i+1until i=999; writeln(v); end.

muliku
muliku
4,8(92 оценок)

code

Объяснение:

x=int(input('x:'))

y=int(input('y:'))

if x>y:

   print('максимальное число х')

else:

   print('максимальное число y')

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