Задать вопрос!

Задать вопрос!

Все категории

Кристина Кол

2 года назад

15

Помогите написать программу в Pascal

Помогите написать программу в Pascal

Информатика

1 ответ:

Елена Сергеевна2 года назад

0 0

Ответ предоставлен в файле для лучшей читаемости кода.

Читайте также

Дана база данных (MS Access) "Ученики школы". Напиши запрос. Необходимо получить информацию: все фамилии, которые входят в диапа

ZAEC

З-Л; ЗpЛs.....................................................................

0 0

4 года назад

Требуется посчитать сумму целых чисел от 1 до N.Входные данныеВ единственной строке входного файла INPUT.TXT записано единственн

golua

Var f:text; i,n,sum:integer;s,t:string;
beginassign(f,'f:\input.txt');Reset(f);read(f,s);close(f);n:= strtoint(s);for i:=1 to n dosum:= sum + i;write(s:5, sum:6);assign(f,'f:\output.txt');ReWrite(f);write(f,sum);close(f);end.

0 0

4 года назад

4. Вводится последовательность из 100 целых чисел. Первое число соответствует количеству монет, которое Петя кладет на левую чаш

Игорь Вячеславович [135]

Var A,R:longint;
c:byte;
Begin
WriteLn('Введите 100 целых чисел');
R:=0;
For c:= 1 to 100 do
    Begin
    ReadLn(A);
    if c mod 2 <> 0 then R:=R+A
    else R:=R-A
    End;
if R=0 then WriteLn('Чаши равны')
else if R>0 then WriteLn('Левая, на ',R*5,' г.')
     else WriteLn('Правая, на ',-R*5,' г')
End.

0 0

4 года назад

ПОМОГИТЕ СРОЧНО,ПОЖАЛУЙСТА!!!Для какого из приведённых имён истинно высказывание:НЕ(Первая буква гласная) И (Последняя буква гла

Елена Говтва

Проверяем первое условие НЕ(Первая буква гласная) = (Первая буква согласная)

Подходят два:

Николай
Марина

Из этих двух второму условию соответствует только:
Марина

Ответ: Марина

0 0

4 года назад

Прочитать ещё 2 ответа

Десятичный код буквы i в таблице кодировки равен 105. Что зашифровано последовательностью десятичных кодов 109 105 108 107?

Alena leb

Буквы в таблице кодировки идут по порядку.
т.е. возьмите аофавит того языка и посмотрите что идет после 'і'

0 0

4 года назад