Для самостоятельной работы: 1. имеются два числа. a) вычислите сумму и разность этих чисел, используя два оператора readln. b) перепишите программу так, чтобы использовался один оператор readln. c) добавьте комментарии к программе. 2. имеются три числа. вычислите их произведение. 3. по заданным сторонам прямоугольника a и b вычислите его периметр и площадь. 4. человеку сегодня исполнилось r лет. сколько ему дней? часов? минут? секунд? (високосные годы не учитывать)

235

467

Посмотреть ответы 2

Ответы на вопрос:

lfif123456789

Информатика

4,8(83 оценок)

1(a) program zadanie; var a,b,c,d: integer; begin writeln('введите два числа'); readln(a,b); c: =a+b; writeln(c); readln; d: =a-b; writeln(d); readln; end. b) program zadanie; var a,b,c,d: integer; begin writeln('введите два числа'); readln(a,b); c: =a+b; d: =a-b; writeln(c,d); readln; end. c) program zadanie; var a,b,c,d: integer; begin writeln('введите два числа'); //здесь вводим два числа readln(a,b); c: =a+b; d: =a-b; writeln(c,d); readln; end. 2. program zadanie; var a,b,c,d: integer; begin writeln('введите три числа'); readln(a,b,c); d: =a*b*c; writeln(d); readln; end. 3. program treugol; var a,b,c,d: real; begin writeln('введите два числа'); readln(a,b); c: =2*(a+b); d: =a*b; writeln(c,d); readln; end. 4. program goda; var r: real; begin write('введите r'); readln(r); d: =r*356; c: =d*24; m: =c*60; s: =m*60; writeln(d); writeln(c); writeln(m); writeln(s); readln; end. надеюсь на лучший ответ и на : )

Jillzay

Информатика

4,6(87 оценок)

a=0

b=[]

while(1==1):

c=int(input("Введите число"))

a+=1

if(c>30000):

print("Такие большие числа вводить нельзя")

elif(a>1000):

print("Больше чисел вводить нельзя")

break

elif(c==0):

break

elif((c>0)and(c<30001)):

b.append(c)

a=0

c=0

for i in b:

a+=1

if((i/3 in range(1,10000,1))and(i in range(1,30000,2))):

c+=1

else:

continue

print(f"""Количество чисел в последовательности: {a}.

Количество чисел в последовательности, которые кратны трём и являються нечётными: {c}. """)

Объяснение:

(извини за ошибки, у меня в школе русский не преподают, ибо я в Украине)

1.(1 строка):

Создаем переменную, которая будет служить для подщёта чисел в последовательности, что бы их количество не превышало 1000;

2.(2 строка):

Создаем переменную, которая является массивом (скобы пустые, что значит, що массив мы будем заполнять динамично, то есть по ходу выполнения программы). Этот массив будет использоваться для хранения в нем чисел из последовательности.

3.(3-14 строки):

Создаем цикл while, который запрашивает у пользователя числа, после этого прибавляет к количеству чисел в последовательности 1. Если введённое число больше 30000, то программа оповещает пользователя об этом и продолжает запрашивать числа. Если количество чисел больше 1000, то программа оповещает пользователя, и прекращает запрашивать числа, так как их уже слишком много. Если число ровно 0, то программа прекращает запрашивать числа. Если же число проходит все вышеупомянутые условия, то число дополняет список;

4.(15 и 16 строки):

Даём старым переменным новые значения, для подщёта чисел в последовательности, и чисел в последовательности, которые кратны трем и являются нечётными;

5.(17-23 строки):

Создаем цикл for, который для всех чисел в массиве, который хранит последовательность,

шитает количество чисел, и количество чисел, которые кратные трём и нечётные;

6.(24 строка):

Выводим на экран количество чисел, форматируя их f-строками, а для удобности чтения ставим три запятые, чтобы текст в программе писался так, как и в коде, то есть между строкой, где написано количество чисел, и строкой где написано количество чисел, которые кратные трём