Задать вопрос
10 октября, 06:26

Что выводит на экран данный фрагмент?

P:=9;

for i:=1 to 10 Do

begin

P:=P*i

Writeln (P, '*', i,'=', P)

end;

+5
Ответы (2)
  1. 10 октября, 07:41
    0
    9 * 1 = 9

    18 * 2 = 18

    54 * 3 = 54

    и т. д.

    как я понимаю у тебя неправильно написана программа

    напиши

    сорри люблю while XD

    P:=9;

    i = 1;

    while (i 10) do

    begin

    Writeln (P, '*', i,'=', P*i)

    i : = i + 1;

    end;
  2. 10 октября, 08:05
    0
    9*1=9

    18*2=18

    54*3=54

    216*4=216

    1080*5=1080

    6480*6=6480

    45360*7=45360

    362880*8=362880

    3265920*9=3265920

    32659200*10=32659200

    так как

    P:=P*i; (сначала считается P)

    Writeln (P, '*', i,'=', P) (а затем выводится его новое значение)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Что выводит на экран данный фрагмент? P:=9; for i:=1 to 10 Do begin P:=P*i Writeln (P, '*', i,'=', P) end; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
1) дан фрагмент программы: For i: = 1 to 10 do begin Writeln ('Hello, world!') End Что выполняет данный фрагмент? 2) дан фрагмент программы: For i: = 1 to 15 do begin Writeln (i) End Что выполняет данный фрагмент?
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a, b, c : = in tege; begin writeln ('write') ; read (a, b, c) ; writeln (a, b) ; writeln (b, a) ; writeln (a, c) ; writeln (c, a) ;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Что я неправильно написал? var a, b, c, d: real; begin writeln (' введи число a') ; readln (a) ; writeln ('введи число b') ; readln (b) ; writeln ('введи число c') ; readln (c) ; d:=a; a:=c; writeln (a) ; c:=b; writeln (c) ; b:=d; writeln (b) ; end.
Ответы (1)