ДАМ 40Б.!! 2. Розв’язати задачу «Перетворення типів даних».

(1) Присвоїти змінній а значення 61.7

(2) Перетворити значення на ціле число і присвоїти отримане число змінній b

(3) Надрукувати змінну b

(4) Присвоїти змінній c значення 45

(5) Перетворити значення на дійсне число і присвоїти отримане число змінній d

(6) Надрукувати змінну d

За наведеним алгоритмом скласти програму на мові Python. Отримані результати записати в зошит.

3. Розв’язати задачу «Вартість». З клавіатури ввести ціну за 1 кг яблук і груш. Ввести вагу придбаних

яблук і груш. Знайти вартість покупки (загальну вартість і вартість окремо груш і яблук).

Алгоритм роботи

(1) Ввести ціну за 1 кг яблук та груш (ціле число).

(2) Ввести вагу яблук та груш (дійсне число).

(3) Знайти вартість яблук та груш.

(4) Знайти спільну вартість покупки.

(5) Вивести дані на екран.

(6) Зберегти під назвою «Практична_2_задача_2».

За наведеним алгоритмом скласти блок-схему та програму на мові Python. Отримані результати

записати в зошит.

4. Скласти блок-схему та програму на мові Python, яка зчитує три цілих числа та виводить на екран їх

суму.

5. Скласти блок-схему та програму на мові Python, яка зчитує швидкість автомобіля та відстань

між двома містами та виводить на екран час руху автомобіля.

1
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 2 = 0
        then
            Writeln('Число чётное')
        else
            Writeln('Число не чётное');
    readln;
end.

2
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 3 = 0
        then
            Writeln('Число делится на 3')
        else
            Writeln('Число не делится на 3');
    readln;
end.

3
program z;
var
    i: array[1..6] of byte;
    x:byte;
begin
    for x:=1 to 6 do
   
        begin
            Writeln('Введите ', x,' цифру из 6 ');
            Read(i[x]);
        end;
    if (i[1]+i[2]) = (i[4]+i[5]+i[6])
        then
            Writeln('Билет счастливый')
        else
            Writeln('Билет не счастливый');
    Readln;
end.
       
5)))
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 6 = 0
        then
            Writeln('Число делится на 6')
        else
            Writeln('Число не делится на 6');
    readln;
end.
6
program z;
var
    a,b:integer;
begin
    Writeln('Введите число A'); Readln(a);
    Writeln('Введите число B'); Readln(b);
    if b mod a = 0
        then Writeln('Число А делится нацело на число В')
        else Writeln('Число А не делится нацело на число B');
    Readln;
end.
       

1. (A+B+C)&(неA&B&неC)= A&неA&B&неC+B&неA&B&неC+C&неA&B&неC=0+неA&B&неC+0=неA&B&неC

2. (A+B)&(неB+A)&(неC+B)=(A&неB+A&A+B&неB+B&A)&(неC+B)= (A&неB+A+0+B&A)&(неC+B)= (A&неB+A+B&A)&(неC+B)=A&неB&неC+A&неB&B+A&неC+A&B+B&A&неC+B&A*B= A&неB&неC+0+A&неC+B&A&неC+A&B+A&B=A&неB&неC+A&неC+B&A&неC+A&B=A&неC(B+1)+ A&B&(неC+1)=A&неC+A&B= A&(неC+B)

3. (1+(A+B))+((A+C)&1)=1+((A+C)&1)= 1+(A&1+c&1)= 1+A+C=1

4. (A&B&неC)+(A&B&C)+не(A+B)= (A&B&неC)+(A&B&C)+неA&неB= (A&B)&(неC+C)+неA&неB=A&B+неA&неB= A~B

5. (A+B+C)&не(A+неB+C)= (A+B+C)&неA&B&неC=A&неA&B&неC+B&неA&B&неC+C&неA&B&неC=0+неA&B&неC+0=неA&B&неC

Объяснение: