<span>Для того, чтобы сделать фоновый цвет, то нужно выбрать необходимый цвет и выбрать заливку.Для основного цвета необходимо выбрать цвет и рисовать кисточкой или карандашом.для намалювання прямоугольника необходимо на панели выбрать фигуру прямоугольника и нарисовать.</span>
{a}
var x: integer;
begin
read(x);
write( (x mod 10 + x div 10 mod 10 + x div 100) mod 2 = 0 )
end.
{b}
var a,b,c: integer;
begin
read(a,b,c);
write( (a <> b) and (b <> c) and (a <> c) )
end.
Сумма,произведение и по отдельности единицы, десятки и сотни
program A1;
Var a, d, b, c,r,t:Integer;
begin
Write(' введите трех значное число ' ) ;Read(a);
d:=a div 100;
c:=a mod 100;
c:=c div 10;
b:=a mod 100;
b:=b mod 10;
t:=d+c+b;
r:=d*c*b;
WriteLn(' число единиц = ', b);
WriteLn(' число десятков = ', c);
WriteLn(' число сотый = ', d);
WriteLn(' сумма его цифр = ', t);
WriteLn(' произведение его цифр = ', r);
end.
Площадь и периметр
program f33;
Var a, b, P, S:Real;
begin
Write('а = '); Read(a);
Write('b = ') ;Read(b);
S:=a*b;
P:=(a+b)*2;
WriteLn('S = ', S);
WriteLn('P = ', P);
end.
// PascalABC.NET 3.3
begin
Print(ReadString.ToWords.Reverse.ElementAt(1))
end.
Пример ввода:
Если ты упал семь раз, встань восемь
Пример вывода:
встань