Регистрация
Negumanitariy
07.06.2021 04:56
Информатика
Есть ответ 👍

20 напечатать все целые значения от a до b с шагом h.

257
334
Посмотреть ответы 2

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

вано139
вано139
4,8(60 оценок)
// pascalabc.net 3.2, сборка 1436 от 01.05.2017 // внимание! если программа не работает, обновите версию! begin   var a,b,h,x: real;   var xx,t: integer;   write('введите a, b, h: '); read(a,b,h);   xx: =trunc(a); print(xx);   x: =a+h;   while x< =(b+h/10) do begin       t: =trunc(x+h/10);       if t< > xx then begin xx: =t; print(xx) end;       x: =x+h       end end. пример введите a, b, h: -15.2 20 0.2 -15 -14 -13 -12 -11 -10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
ovrvoin2
ovrvoin2
4,5(58 оценок)
А)  program sum_pr; var sum,pr,a1,a2,a : integer; begin read(a); a1: =a div 10; a2: =a mod 10; sum: =a1+a2; pr: =a1*a2; write(sum,pr); end. б) program per; var per,a1,a2,a : integer; begin read(a); a1: =a div 10; a2: =a mod 10; per: =a2*10+a1; write(per); end.

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