Вариант 1
1. представьте в виде построчной записи алгоритм решения следующей .
фруктовый магазин продает яблоки поштучно по 10 руб., груши — по 20 руб., апельсины — по 30 руб. в первые два дня недели продано: понедельник — х яблок, у груш, z апельсинов; во вторник — z яблок, у груш, х апельсинов. вычислите, на какую сумму продал магазин фруктов за эти два дня.
2. представьте с блок-схемы алгоритм решения следующей .
вводятся годы рождения двух девочек. требуется сравнить их возраст и вывести на экран «родились в один год» или «родились в разные года» в зависимости от результатов сравнения.
3. по алгоритму восстановите формулу для вычисления значения у и запишите её на алгоритмическом языке:
1) умножить х на х, обозначить результат r1;
2) умножить r1 на а, обозначить результат r2,
3) сложить r2, с b, обозначить результат r3;
4) разделить r3 на с, считать результат значением
1)
а)=0
б)=1
в)=1
г)=1
2)
а) 1)
3) Весной Наташа, зимой Валя, Катя осенью, Маша летом.
Объяснение:
2) Закон общей инверсии Закон де Моргана.
3) Наташа встречается только 1 раз. Предположим для нее это верно то для Вали не верно. Для нее получается верно первое высказывание и там для Кати не верно. Тогда для Кати верно второе и там же для Маши не верно. Маше остается не выбранное - лето.
Маша тоже встречается один раз. Если предположить, что это верно, то у Кати не осенью а летом (первое). Но тогда у Вали не зимой а летом - что совпадает с Катей а этого быть не должно.
var
a,b,c,t,z:integer;
m,k,l:string;
label 1,2,3,4;
begin
writeln ('Введите число от 1-го до 100');
repeat read(a) until (a>=0)and(a<=100);
b:=a div 10;
c:=a mod 10;
if a=100 then goto 2;
if a=0 then goto 1;
if (a>9) and (a<20) then goto 4;
case b of
2:m:='Двадцать ';
3:m:='Тридцать ';
4:m:='Сорок ';
5:m:='Пятьдесят ';
6:m:='Шестдесят ';
7:m:='Семдесят ';
8:m:='Восемьдесят ';
9:m:='Девяносто '; end;
case c of
1:k:='один';
2:k:='два';
3:k:='три';
4:k:='четыре';
5:k:='пять';
6:k:='шесть';
7:k:='семь';
8:k:='восемь';
9:k:='девять';
end;
writeln (m,k);
goto 3;
2:writeln ('Сто');
goto 3;
1: writeln ('Ноль');
goto 3;
4: if a=10 then writeln ('Десять');
if a=11 then writeln ('Одиннадцать');
if a=12 then writeln ('Двенадцать');
if a=13 then writeln ('Тринадцать');
if a=14 then writeln ('Четырнадцать');
if a=15 then writeln ('Пятьнадцать');
if a=16 then writeln ('Шестнадцать');
if a=17 then writeln ('Семнадцать');
if a=18 then writeln ('Восемнадцать');
if a=19 then writeln ('Девятнадцать');
3:end.