Евлампиевич
5 год назад
Напечатайте таблицу умножения чисел от 10 до 20 на числа 15, 16 и 17. Все данные расположите в неКак узнать сколько столбов, чтобы они были видны на экранеЯЗЫК ПАСКАЛЬ. ОЧЕНЬ СРОЧНО
ОТВЕТЫ
Fadej
Oct 24, 2020
без решения,пока что.
uses crt;var a:array[0..50,0..50]of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dobegina[i,0]:=i;a[0,i]:=i;end;for i:=1 to n dofor j:=1 to n dobegina[i,j]:=i*j;end;for i:=0 to n dobeginfor j:=0 to n dobeginif (i=0) or (j=0) thentextcolor(lightgreen)elsetextcolor(white);write(a[i,j]:4);end;writeln;end;end.
uses crt;var a:array[0..50,0..50]of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dobegina[i,0]:=i;a[0,i]:=i;end;for i:=1 to n dofor j:=1 to n dobegina[i,j]:=i*j;end;for i:=0 to n dobeginfor j:=0 to n dobeginif (i=0) or (j=0) thentextcolor(lightgreen)elsetextcolor(white);write(a[i,j]:4);end;writeln;end;end.
297
Смежные вопросы:
