Регистрация
EvdokiaNi
14.03.2022 13:19
Информатика
Есть ответ 👍

Для зачета по турбо паскалю! важно! 1) даны число a> 0, числа x1, необходимо вводить числа x1, , пока сумма модулей введенных чисел буде меньше a. определить число введенных чисел. 2)даны число n и векторы а=(а1,) , b=(b1,) найти координаты вектора с, равного сумме векторов a и b, если a1

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

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

un5gao
un5gao
4,5(98 оценок)
3) var s: string; begin; for i: =length(s) downto 1 do write(s[i]); end.
NiKoOl18
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.

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