У вашого двоюрідного брата скоро день народження — йому виповниться 7 років. Його батьки звернулися до вас за до у створенні кошторису для проведення дитячого свята. Брат хотів би запросити 11 друзів. Пригощати гостей заплановано вдома двома видами тістечок, соком і морозивом, які можна придбати в одному із супермаркетів. Кімнату можна прикрасити повітряними кульками власними силами або замовити оформлення в агенції «Веселий клоун», про яку батьки багато чули та хотіли б отримати її контактні дані, щоб запросити клоуна для проведення свята. 1. З урахуванням зазначеного вище розрахуйте кошторис свята, який би був найбільш економним для сімейного бюджету. Для цього створіть електронну таблицю або розробіть проект в одному із середовищ програмування та виконайте обчислення за до формул. Порівняйте частки кожного виду витрат (продукти, розваги, оформлення) у загальній сумі витрат на свято, побудувавши відповідний тип діаграми для обґрунтування та прийняття рішення батьками брата.
2. Вводимые числа - целые.
После этих уточнений можно написать код на PascalABC:
//Вариант с циклом repeat
var
a, min: integer;
begin
min := 555555;
repeat
readln(a);
if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
min := a;
until a = 0;
writeln(min);
end.
//вариант с циклом while
var
a, min: integer;
begin
min := 555555;
readln(a);
while (a>0) or (a<0) do begin
if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
min := a;
readln(a);
end;
writeln(min);
end.
2. 12
3. 3
4. 22
5. 15
6. 34
7. 3
Часть 2
1.
Var
n:integer;
Begin
Write('Введи число ');
Readln(n);
if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);
End.
2.
Var
a,b:integer;
Begin
Write('Введи числа ');
Readln(a,b);
if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);
End.
3.
Var
n:integer;
Begin
write('Введи двузначное число ');
Readln(n);
if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');
End.