Program abc; 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.
ответ:Внутри условных инструкций можно использовать любые инструкции языка Питон, в том числе и условную инструкцию. Получаем вложенное ветвление – после одной развилки в ходе исполнения программы появляется другая развилка. При этом вложенные блоки имеют больший размер отступа (например, 8 пробелов). Покажем это на примере программы, которая по данным ненулевым числам x и y определяет, в какой из четвертей координатной плоскости находится точка (x,y):
x = int(input())
y = int(input())
if x > 0:
if y > 0: # x>0, y>0
print("Первая четверть")
else: # x>0, y<0
print("Четвертая четверть")
else:
if y > 0: # x<0, y>0
print("Вторая четверть")
else: # x<0, y<0
print("Третья четверть")
В этом примере мы использовали комментарии – текст, который интерпретатор игнорирует. Комментариями в Питоне является символ # и весь текст после этого символа до конца строки.
Объяснение:В этом примере мы использовали комментарии – текст, который интерпретатор игнорирует. Комментариями в Питоне является символ # и весь текст после этого символа до конца строки.
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.
ответ:Внутри условных инструкций можно использовать любые инструкции языка Питон, в том числе и условную инструкцию. Получаем вложенное ветвление – после одной развилки в ходе исполнения программы появляется другая развилка. При этом вложенные блоки имеют больший размер отступа (например, 8 пробелов). Покажем это на примере программы, которая по данным ненулевым числам x и y определяет, в какой из четвертей координатной плоскости находится точка (x,y):
x = int(input())
y = int(input())
if x > 0:
if y > 0: # x>0, y>0
print("Первая четверть")
else: # x>0, y<0
print("Четвертая четверть")
else:
if y > 0: # x<0, y>0
print("Вторая четверть")
else: # x<0, y<0
print("Третья четверть")
В этом примере мы использовали комментарии – текст, который интерпретатор игнорирует. Комментариями в Питоне является символ # и весь текст после этого символа до конца строки.
Объяснение:В этом примере мы использовали комментарии – текст, который интерпретатор игнорирует. Комментариями в Питоне является символ # и весь текст после этого символа до конца строки.