B. Только чётные

Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Формат ввода

Вводятся два числа a и b (a ≤ b).
Формат вывода

Вывести все чётные числа в промежутке от a до b по возрастанию.
Пример

Ввод Вывод
1. 2
10 4
6
8
10

C.Феофан пришёл в зоопарк и запоминает всех животных, которых та разглядывает. В этом зоопарке очень много бездомных кошек, которые свободно перемещаются между вольерами.
Феофану посчитать, сколько кошек он встретил за время посещения.
Формат ввода

Вводятся строки с названиями животных до тех пор, пока не будет введена пустая строка.
Формат вывода

Выведите одно число - количество встреченных слов "кот" или "кошка".
Пример

Ввод Вывод
скунс. 2
жираф
кот
пантера
кошка

D. Формат ввода

Вводятся два числа - a и b (0 ≤ a ≤ b ≤ 109).
Формат вывода

Выведите все полные квадраты, которые попали в диапазон между числами a и b (включительно!), по одному на каждой строчке.
Ввод.
50
100
Вывод
64
81
100

👇

Увидеть ответ

Ответ:

kazanetov

12.03.2022

B. Только чётные

Ограничение времени 1 секунда

Ограничение памяти 64Mb

Ввод стандартный ввод или input.txt

Вывод стандартный вывод или output.txt

Формат ввода

Вводятся два числа a и b (a ≤ b).

Формат вывода

Вывести все чётные числа в промежутке от a до b по возрастанию.

Пример

Ввод Вывод

1. 2

10 4

C.Феофан пришёл в зоопарк и запоминает всех животных, которых та разглядывает. В этом зоопарке очень много бездомных кошек, которые свободно перемещаются между вольерами.

Феофану посчитать, сколько кошек он встретил за время посещения.

Формат ввода

Вводятся строки с названиями животных до тех пор, пока не будет введена пустая строка.

Формат вывода

Выведите одно число - количество встреченных слов "кот" или "кошка".

Пример

Ввод Вывод

скунс. 2

жираф

кот

пантера

кошка

D. Формат ввода

Вводятся два числа - a и b (0 ≤ a ≤ b ≤ 109).

Формат вывода

Выведите все полные квадраты, которые попали в диапазон между числами a и b (включительно!), по одному на каждой строчке.

Ввод.

100

Вывод

100

Объяснение Задание

4,6(29 оценок)

Открыть все ответы

Ответ:

kmelashenko

12.03.2022

Const n=20;
var a:array[1..n]of integer;
i,b,k,c,f,g,h:integer;
begin
for i:=1 to n do a[i]:=Random(70)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin
b:=i;
for b:=i to (n-1) do
a[i]:=a[i+1];
end; end;
for i:=1 to n do
write(a[i],' ');
write('введите к ');
read(k);
for i:=1 to n do begin
if a[i] mod i = 0 then begin
c:=i;
for i:=n downto c+1 do begin
a[i]:=a[i-1];
a[c+1]:=k;
end;end;end;
for i:=1 to n do
write(a[i],' ');
writeln;
f:=0; g:=0;
for i:=n downto 1 do begin
if (a[i]>0) then f:=i;
end;
if a[f]=0 then write('нет положительных ');
for i:=n downto 1 do begin
if (a[i]<0) then g:=i;
end;
if (a[g]=0) then write('нет отрицательных ');
if (a[f]<>0) and (a[g]<>0) then begin
h:=a[f]; a[f]:=a[g]; a[g]:=h; end;
for i:=1 to n do
write(a[i],' ');
writeln;
end.

4,7(57 оценок)

Ответ:

Yutik

12.03.2022

Пример на продукте - бананы

program v1;

var m,n,sum,t:integer;

st1:string[10];

begin

sum:=0; t:=0;

writeln('Здравствуйте');

writeln('Банан красного цвета стоит 2500, банан синего цвета стоит 3000, банан черного цвета стоит 3700');

writeln('Сколько купите бананов '); readln(n);

writeln('Введите цвет бананов '); readln(st1);

if (st1='Красного') or (st1='красного') or (st1='Красный') or (st1='красный') then sum:=3000*n;

if (st1='Синего') or (st1='синего') or (st1='Синий') or (st1='синий') or (st1='Синей') or (st1='синей') then sum:=2500*n;

if (st1='Черного') or (st1='черного') or (st1='Чёрного') or (st1='чёрного') or (st1='Черный') or (st1='черный') or (st1='чёрный') or (st1='Чёрный') then sum:=3700*n;

writeln('Сумма покупки ', sum);

writeln('Введите сумму'); readln(m);

t:=m-sum;

writeln('Возьмите сдачу ',t);

writeln('Всего доброго, приходите еще');

end.