Запишите программу в которой пользователь вводит целые числа до тех пор пока не введет 15 паскаль

160

471

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

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

BellaNow

Информатика

4,4(49 оценок)

Привет это по кокому,??,,

NiKoOl18

Информатика

4,4(17 оценок)

проверено в турбопаскаль 7

var ost,n: longint; i,kvadrat, udvsumma: integer; numbers: array[1..10] of integer; beginwriteln(''); write('input n: '); readln(n); writeln('vi vveli: ',n); ost: =n; i: =0; while (ost> 0) dobegin i: =i+1; numbers[i]: =ost mod 10; ost: =ost div 10;

end; if(i< 3) thenbeginwriteln('! nado vvesti minimum 3 znaka chislo'); endelsebeginkvadrat: =numbers[i]*numbers[i]; udvsumma: =2*(numbers[1]+numbers[2]); writeln('kvadrat pervogo=', kvadrat); writeln('udvoennaya summa poslednih=', udvsumma); if(udvsumma< kvadrat) thenwriteln('vse verno, udvoennaya summa menshe')elsewriteln('ne verno, udvoennaya summa ne menshe');

end; writeln('press enter'); readln; end.