1. даны три числа a, b, c. определить, какое из них равно d. если равных d чисел нет, то найти максимальное из d-a, d-b, d-c. примеры: • вход: 10 4 15 4 выход: второе число равно 4 • вход: 5 13 9 7 выход: максимальная разность 2. 2. составить программу, которая при введенном возрасте человека правильно печатает: «вам х лет (год, года)! ». например: • вход: 44 выход: вам 44 года! • вход: 31 выход: вам 31 год! • вход: 11 выход: вам 11 лет! 3. одной банки краски хватает на покраску x м2 площади. забор имеет форму прямоугольника: высота а м, длина b м. сколько целых банок краски необходимо приобрести, чтобы покрасить забор? вход: х=5 а=3 b=200 выход: 120 вход: х=3.35 а=2.5 b=12 выход: 9 4. даны 2 числа. если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. вход: 25 -8 выход: -400 вход: 5 3 выход: 8 2
117
308
Ответы на вопрос:
// pascalabc.net 3.3// cборка 1590 от 03.12.20171)begin var (a,b,c): =readinteger3('введите a,b,c,d-> '); var d: =readinteger; if a=d then begin println('первое число равно',d); exit; end; if b=d then begin println('второе число равно',d); exit; end; if c=d then begin println('третье число равно',d); exit; end; a: =d-a; b: =d-b; c: =d-c; var max: =max(max(a,b),c); println('максимальная разность-> ',max); end. 2)begin var a: =readinteger('введите возраст-> '); if (a mod 10=1) and (a< > 11) then writelnformat('вам {0} год',a) else if (a mod 10=2) or (a mod 10=3) or (a mod 10=4) then writelnformat('вам {0} года',a) else writelnformat('вам {0} лет',a); end.3)begin var (x,a,b): =readreal3('введите x,a,b-> '); writelnformat('нужно приобрести {0} банок краски',round((a*b)/x)); end.4)begin var (a,b): =readreal2('введите a,b-> '); if a+b> 10 then println(2*a*b) else if a> b then println(a+b,a-b) else println(a-b,a+b); end.
Dim a(1 to 3,1 to 3) as integer,i,j as integer randomize for i= 1 to 3 for j= 1 to 3 a(i,j)= rnd•100 print tab; a(i,j); next j print next i for i= 1 to 3 for j = 1 to 3 if a(1,1)> 0 then a(i,j)•4 end if next j next i if a (1,1)< 0 then a(i,j)• 7 end if next j next i print tab; a(i,j); на языке бейсик))
Популярно: Информатика
-
tanyatomeva8114.07.2021 06:17
-
irarenkas24.11.2021 07:38
-
pankuznetsov31.05.2023 14:35
-
яна176511.02.2020 16:38
-
mauzeriss23.01.2023 16:54
-
данил1013121.06.2020 17:34
-
rufiyamama21.02.2021 11:15
-
irarenkas04.11.2021 10:11
-
aprel12318.09.2022 03:33
-
цветочек12029.09.2022 06:08