Ваня готовит блюдо из четырёх ингредиентов. В рецепте не написано их количество и последовательность добавления, но Вася знает их сам. Он кладёт в кастрюлю первый ингредиент, пять третьих, шесть четвёртых, семь вторых, а затем ещё раз первый. Его младший брат, который ещё не умеет считать, но умеет писать, записывает через пробел в блокнот всё, что оказывается в кастрюле по очереди. По названиям ингредиентов выведи получившуюся запись.
яйцо ложка майонеза ложка майонеза
мясо морковь морковь морковь морковь морковь перец перец перец перец перец перец лук лук лук лук лук лук лук мясо
курица ложка майонеза ложка майонеза ложка майонеза ложка майонеза ложка майонеза ананас ананас ананас ананас ананас ананас сыр сыр сыр сыр сыр сыр сыр курица
спагетти чеснок чеснок чеснок чеснок чеснок пармезан пармезан пармезан пармезан пармезан пармезан соус соус соус соус соус соус соус спагетти
рыба морковь морковь морковь морковь морковь сыр сыр сыр сыр сыр сыр картофель картофель картофель картофель картофель картофель картофель рыба
Задача 1:
#include <iostream>
int main()
{
int n, s = 0;
setlocale(LC_ALL, "Russian"); // Русский язык в консоли
std::cout << "Введите число: ";
std::cin >> n;
while (n > 0)
{
if (n % 10 == 7) s++;
n /= 10;
}
std::cout << "Кол-во цифр 7 в числе: " << s;
return 0;
}
Задача 2:
#include <iostream>
int main()
{
int n, s = 0;
setlocale(LC_ALL, "Russian"); // Русский язык в консоли
std::cout << "Введите число: ";
std::cin >> n;
while (n > 0)
{
if (n % 10 == 3) s+=3;
n /= 10;
}
std::cout << "Сумма всех 3 в числе: " << s;
return 0;
}
Задача 1: 1
Задача 2:
begin
s:=0; k:=1;
while k < 11 do begin
s:=s+k; k:=k+1;
end;
write(s);
end.
Задача 3:
11 10 9 8 7 7 10 11 12 13 14
Задача 4:
const N = 20;
const MAX = 100;
const MIN = -100;
var A: array [1..N] of integer;
var i,s: integer;
begin
randomize();
s:=-1;
writeln('Исходный массив: ');
for i:=1 to N do
begin
A[i]:=random(MAX-MIN+1)+MIN;
if (A[i]>0) and (A[i] mod 5 = 0) then
begin
if (s=-1) then s:=A[i]
else if (A[i]<s) then s:=A[i];
end;
write(A[i],' ');
end;
writeln();
if (s<>-1) then writeln('Минимальное значение среди положительных',
' элементов массива кратных 5: ',s)
else writeln('Не найдено');
end.