Var n: integer;
<span> s: array[0..3] of string = ('зима','весна','лето','осень');
</span><span>begin
</span><span> write('месяц: '); readln(n);
</span><span> if n in [1..12] then
</span><span> begin
</span><span> n:=n mod 12;
</span><span> writeln(s[n div 3]);
</span><span> end
</span><span> else writeln('не верный ввод');
</span><span>end.
</span>месяц: 12
<span>зима
</span><span>месяц: 15
</span><span>не верный ввод
</span>
Принтер машина для распичатки документов является дополнительным устройством для компьютера
Монитор выводит все действия компьютера на экран является основным устройством компьютера
Var n:integer;
begin readln(n);
if n mod 10 = 0 then write(2) else write(1);
<span>end.</span>
65(8)=53(10)< 53(7)=38(10)
Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub