Var a,b:integer;
begin
a:=random(99)+1;
write('Дополните до 100 число ',a,': ');
readln(b);
if b=100-a then writeln('Верно!')
else writeln('Вы ошиблись. 100-',a,'=',100-a);
end.
Пример:
Дополните до 100 число 75: 20
Вы ошиблись. 100-75=25
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
Writeln('Четных элементов: ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение</em></u>
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6
Есть много решение этой задачи. Вот моё.
program n_1;var a:real;beginread(a);a:= a / 2;writeln(a,' ',a);end.
Чадо - чаёк - чайка - чайник - чаровница - чародей - чародейка - час - часик - часок - часок-другой.