Регистрация
limon023
16.08.2020 07:44
Информатика
Есть ответ 👍

Написать программы, по итогам которых на экран выводилось бы сдедующее1)12341234123412342)1223334444555553)666666555554444333221

198
425
Посмотреть ответы 2

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

ZeuSDECL0
ZeuSDECL0
4,6(12 оценок)

1)

var

i,k,n: integer;

begin

for i: =1 to 4

do

    writeln(1234);

end.

2)

var

i,k,n: integer;

begin

readln(n);

for i: =n to 5

do

  begin

  for k: =1
to i do

    write(i);

  writeln;

  end;

readln;

end.

3)

var

i,k,n: integer;

  begin

readln(n);

for i: =n downto 1 do

  begin

  for k: =1 to i do


    write(i);

  writeln;

  end;

readln;

end.

gejdanp0dmbe
gejdanp0dmbe
4,8(69 оценок)
Program n_5; var     a, b: real;     c: integer; begin   write('введите стоимость тетради - '); readln (a);   write('введите стоимость обложки - '); readln (b);   write('введите кол-во тетрадей - '); readln (c);   if (a < = 0) or (b < = 0) or (c < = 0) then exit;   writeln;   write('итого: ', trunc(c * (a + ' руб. ', * (a + b)) - (trunc(c * (a + *100), ' коп.'); end.

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