Question

Переведите, пожалуйста, из Паскаля в Кумир uses crt; var i:integer; mas: array [1..10] of integer; BEGIN write('Ishodniy massiv:'); for i:=1 to 10 do begin mas[i]:=random(900)+101; write(mas[i]:4); end; writeln; write('Chisla kratnie 3 i 5:'); for i:=1 to 10 do if ((mas[i])mod(3)=0) and ((mas[i])mod(5)=0) then {изменилось условие вместо or стало and} write(mas[i]:4); END.

Answer 1

Алг массив
нач
  цел N = 10
  целтаб mas[1:N]
  цел i
 
  вывод "Исходный массив: "
  нц для i от 1 до N
    mas[i] := irnd(101,1000)
    вывод mas[i], " "
  кц
  вывод нс
 
  вывод "Числа, кратные 3 и 5: "
  нц для i от 1 до N)
    если mod(mas[i],3)=0 и mod(mas[i],5)=0 то
      вывод mas[i], " "
    все
  кц
кон

Answer 2

uses crt; var i: integer; mas: array [1..10] of integer; BEGIN write('Исходный массив:'); for i := 1 to 10 do begin mas[i] := random(900) + 101; write(mas[i]:4); end; writeln; write('Числа кратные 3 и 5:'); for i := 1 to 10 do begin if (mas[i] mod 3 = 0) and (mas[i] mod 5 = 0) then write(mas[i]:4); end; END.

Перевод на Кумир:

использовать консоль; перем i: целое; mas: массив [1..10] из целое; начать записть('Исходный массив:'); для i := 1 до 10 делать начать mas[i] := случайное(900) + 101; записть(mas[i]:4); конец; переводСтроки; записть('Числа кратные 3 и 5:'); для i := 1 до 10 делать начать если (mas[i] мод 3 = 0) и (mas[i] мод 5 = 0) то записть(mas[i]:4); конец; конец.