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.
Обозначим
. Тогда система превращается в такую:
Пусть
. Тогда
. Учитывая, что уравнение
имеет 1 решение
, а
- 3 решения, а также вспоминая, что все переменные независимы, получаем по правилу умножения, что в этом случае будет
решений.
Если
, всё будет так же с точностью до замены 1 на 0 и наоборот, в этому случае будет тоже 27 решений.
Всего возможных наборов 27 + 27 = 54.
Условие: мы смотрим на время,если время больше или равно 19:00,то нужно зайти домой,если нет,то играете дальше.
Действие: мы смотрим на время,если время больше или равно 19:00,то нужно зайти домой,конец. Если ещё нет 19:00, то играете дальше,затем все действия ещё раз повторяются до тех пор пока время не будет больше или равно 19:00.
<u>private v</u><u>oid</u> Form1_Paint(<u>object</u> sender, <u>PaintEventArgs</u> e)
{
using (<u>Graphics</u> g = e.Graphics)
{
<u>const byte</u> width = 30;
g.Clear(Color.White);
<u>Random</u> r = new Random();
for (<u>int</u> i = 0; i <= this.Width / width; i++)
for (<u>int</u> j = 0; j <= this.Width / width; j++)
{
g.DrawRectangle(
new Pen(Color.FromArgb(r.Next(0, 255), r.Next(0, 255), r.Next(0, 255)), 3),
width * i,
width * j,
width * (i + 1),
width * (j + 1)
);
}
}
}
Я так понимаю, в блок-схему в место, где подчёркивание, нужно вписать a + b.
Код на паскале:
var
a, b, s: Real;
begin
a := 5;
b := -3.5;
s := a + b;
writeln(s);
end.