Program n1;
var
x:integer;
begin
writeln('Введите число'); readln(x);
if (x mod 4=0) then writeln('Является') else writeln('Не является');
end.
program n2;
var
a,b:integer;
begin
writeln('Введите первое число'); readln(a);
writeln('Введите второе число'); readln(b);
if a>b then writeln(a*b*2,' ',(a+b)/2) else writeln((a+b)/2,' ',a*b*2);
end.
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
Код в приложении.
При вставке на сайт форматирование текста исчезает.
<span><span>Если правильно расставить отступы, то алгоритм должен вывести это:
Ира съел(a) молоко.
#Programm created by lagov Gleb
</span><span>#This programm is generator random wordsXD
</span>name = ['Глеб', 'Артем', 'Ира', 'Варя', 'Андрей']
glagol = ['выпил(a)', 'съел(a)', 'купил(а)', 'укусил(а)', 'пнул(а)']
predmet = ['молоко', 'дверь', 'велосипед', 'лестницу', 'XBOX', 'PlayStation']
from random import randint
def pick(words):
num_words = len(words)
num_picked = randint(0, num_words - 1)
word_picked = words[num_picked]
return word_picked
print(pick(name), pick(glagol), pick(predmet), end='.\n')
input()</span>