Program primer;
uses
crt;
var
x,y:integer;
begin
writeln('Введите x и y');
readln(x,y);
writeln('Остаток от деления ',x, ' на ',y, ' равен ',x mod y);
<span>end.</span>
Var
x,y: integer;
begin
read(x);
y := x * x + 1;
write(y);
end.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.
В Excel удобно строить, сам считает :)
А) Информация для человека - это знание, которое он получает из различных источников
б) Информация понятна, если она выражается на языке, доступном для получателя
в) Сообщение может пополнить знания человека, если содержащиеся в нем сведения являются понятным и новы