program choise;
var m:integer;
begin
writeln('Введите натуральное число ');
read(m);
if m=1 then
writeln('Привет')
else if m=0 then
writeln('Как дела?')
else
writeln('Пока');
end.
№3 правильный Система счисления - это<span> способ представления чисел с помощью символом, имеющих определенное количественное значение</span>
// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2
SET @start = "Ш"
SET @end = "Я"
SELECT Название_таблицы.Название_атрибута FROM Название_таблицы WHERE (Название_атрибута >= @start AND <= @end);