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

4 года назад

Напишите программу в Паскаль.15б

Знания

Информатика

1 ответ:

david7444427 [14]4 года назад

0 0

Begin
write(ReadSeqInteger(ReadInteger()).Where(x -> x mod 3 = 0).Sum);
end.

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

Написать программу, которая по введенному году обучения в школе (число от 1 до 11) выводит соответствующее сообщение «Я учусь на

МарияСтулова

#include <iostream>

using namespace std;int main(){setlocale(LC_ALL, "Russian");int in_user;cout << "На каком вы курсе?" << endl;while(cin >> in_user){if(in_user > 0 && in_user < 12){cout << "Я учусь на "<< in_user << "-курсе";break;}else{cout << "С тобой все в порядке? Нет такого курса" << endl<< "На каком вы курсе?" << endl;}}return 0;}

0 0

3 года назад

Помогите пожалуйста, как будет выглядеть в Паскале( заранее спасибо)

Mayaa [15]

===== PascalABC.NET =====

begin

var k := ReadInteger; // ввод k

if k > 2 then // анализ аномалии

begin

var (x1, x2, i) := (1, 1, 2);

var x: integer;

while i < k do

begin

x := x1 + x2;

x1 := x2;

x2 := x;

i += 1

end;

Print(x)

end

else

Print('Ошибка')

end.

0 0

3 года назад

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

1. Надпись на клавише , находящейся рядом с клавишей Pause? 2.Надпись на клавише , фиксирующий числовой режим работы дополнитель

Morgan Bonin [55]

1. Scroll Lock
2.Num Lock

0 0

1 год назад

Сколько букв и какого алфавита содержит зашифрованный десятичными кодами текст 128 32 139 32 148 32 128 32 130 32 136 32 146 Как

Наська666

<span>Текст содержит 7 букв Русского алфавита объемом 13 байт..!!!</span>

0 0

4 года назад

Как можно получить равенство если можно переложить с одного места на лругое только одну палочку.1.VLL-V=XL2.IX-V=VI3.VL-IX=III4.

vkontakte [14]

1)VII-V=XI -> VI + V = XI
2)IX-V=IV
3)VI-IX=III->VI=IX-III
4) VIII+II=X

0 0

4 года назад