1 a)
var
a: integer;
begin
readln(a);
if a mod 2 = 0 then
println('da')
else println('net');
end.
======================================
1 б)
var
a: integer;
begin
readln(a);
if a mod 10 = 7 then
println('da')
else println('net');
end.
================================
2 а
var
a: integer;
begin
readln(a);
if (a div 10+a mod 10) mod 3 = 0 then
println('da')
else println('net');
end.
======================================
2 б
var
n,a: integer;
begin
writeln('Введите число');
readln(n);
writeln('Введите a');
readln(a);
if (n div 10+n mod 10) mod a = 0 then
println('da')
else println('net');
end.
Var
otvet:String;
i:integer;
S0,S:String;
C:char;
begin
//Считывание данных
Writeln('Введите строкy S');
readln(S);
Writeln('Введите строкy S0');
readln(S0);
Writeln('Введите символ C');
readln(C);
//Цикл посимвольная обработка строки
for i:=1 to length(S) do
begin
//Программа вставляет подстроку S0 в строку S
//перед каждым символом C
//Сохраняя результат в otvet
if S[i]=C then
Otvet:=otvet+S0+C
else
Otvet:=otvet+S[i];
end;
Writeln('Ответ:', otvet);
<span>end.</span>
var
a,b:string;
c:real;
begin
readln(a); readln(b); readln(c);
writeln('Билет на ',a); writeln('В кинотеатр ',b); writeln('На время ',c,' Забронирован');
end.
)<span>Вспомогательная классификация создается с целью наиболее легкого отыскания того или иного предмета среди множества классифицируемых предметов.А естественная классификация — это распределение предметов по группам на основании их существенных признаков.</span>
<span>2)<span>Классификации на математике: числа бывают: натуральными(1,2,3); целыми(2, -5); дробными(6,73). На русском: предложения бывают: простыми, сложными: сложноподчинёнными, сложносочинёнными, сложными с разными видами связи, сложные бессоюзные.</span></span>
Нагреть молоко
положить соль
положить сахар
всыпать ианную кашу
кипятить помещивая 10 мин
