М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Pavelilik
Pavelilik
21.07.2020 09:52 •  Информатика

В одной из стран Африки, если человек имеет зарплату более 20 000
рублей (в переводе на наши деньги) он считается богатым. Напишите
программу, которая определяет является ли человек богатым и выводит
информацию об этом на экран.
Нужно написать программу в паскале используя изученные else, if, then,

👇
Открыть все ответы
Ответ:
лох251
лох251
21.07.2020

N = int(input())


Speed_limit_car_count = 0


all_speed = 0


car_speed = []


i = 0


total = None


YN = None



def list_check(car_speed):


for i in range(len(car_speed)):


 if car_speed[i] in range(1, 300):


  normal = True


  continue


 else:


  normal = False


  break


return normal



if N not in range(1, 31):


print('Wrong input')


else:


while i < N:


 car_speed.append(float(input()))


 i += 1


normal = list_check(car_speed)


if normal:


 for i in range(len(car_speed)):


 

  if car_speed[i] <= 30:


   Speed_limit_car_count += 1



 for i in range(len(car_speed)):


  round(car_speed[i])


  all_speed += car_speed[i]



 total = all_speed/N



 if Speed_limit_car_count >= 2:


  YN = 'YES'


 else:


  YN = 'NO'


else:


 print('ERROR IN SPEEDLIST. CHEK INPUT!')



print(total, YN)



Программа протестирована. ctrl+c делать не стоит, сайт нарушает табуляции в коде.

4,7(100 оценок)
Ответ:
kuytdrg87
kuytdrg87
21.07.2020

var i,j,max,min,imax,imin:integer; A:array[0..5,0..3] of integer;

begin  

min:=101;

Randomize;

for i:=0 to 5 do begin

for j:=0 to 3 do begin

A[i,j]:= random(100);

write(A[i,j]:3);

end;writeln;

end;

writeln;writeln;

for i:=0 to 5 do begin

for j:=0 to 3 do begin

if A[i,j] > max then begin max:= A[i,j];imax:=j;end;

if A[i,j] < min then begin min:= A[i,j];imin:=j;end;

end;

A[i,imin]:=max;

A[i,imax]:=min;

max:=0;min:=101;

imin:=0;imax:=0;

end;

writeln;

for i:=0 to 5 do begin

for j:=0 to 3 do begin

write(A[i,j]:3);

end;writeln;

end;

end.

4,7(46 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ