перевести код з Pascal. Очень нужноНайдите 5 - вопрос №123928835 от малака 14.02.2023 13:09

Question

Информатика: перевести код з Pascal. Очень нужноНайдите 5 первых чисел, что больше за 200 и кратные 17.Var n,k:word;Begin n:=200; k:=0; repeat n:=n+1; If n mod 17=0 then Begin write(n, ); k:=k+1; end; until k=5;end.

малака · Answer

ответ:а) var x,y: real;б) var a,b,s: real;(a,b - стороны прямоугольника, s - площадь прямоугольника)в) var k:integer;ct,co,s: real;(k - количество тетрадей, ct,co - стоимость 1 тетради и 1 обложки (соответственно), s - стоимости покупки)г) var kt,kk,kr:integer;ct,ck,cr,s: real;(kt,kk,kr - количество тетрадей, карандашей и ручек (соответственно), ct,ck,cr - стоимость 1 тетради, 1 карандаша и 1 ручки (соответственно), s - стоимость покупки)Данные вещественного (real) типа используются значительно чаще целого типа. Они необходимы в тех случаях, когда числовые значения могут содержать дробные части.Данные целочисленного (integer) типа используются для представления целых чисел.

Объяснение:

перевести код з Pascal. Очень нужноНайдите 5 первых чисел, что больше за 200 и кратные 17.Var n,k:word;Begin n:=200; k:=0; repeat n:=n+1; If n mod 17=0 then Begin write(n,' '); k:=k+1; end; until k=5;end.

перевести код з Pascal. Очень нужно

Найдите 5 первых чисел, что больше за 200 и кратные 17.

Var n,k:word;

Begin

n:=200; k:=0;

repeat

n:=n+1;

If n mod 17=0 then

Begin

write(n,' '); k:=k+1;

end;

until k=5;

end.