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

Написать программу на языке python: 1. в квадратной комнате шириной a и высотой b есть окно и дверь с размерами c на d и m на n соответственно. вычислите площадь стен для оклеивания их обоями. 2. сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов) запись заданного трехзначного числа. например, для числа 341 таким будет 143.

👇
Ответ:
мама1035
мама1035
05.11.2022
1)
a = float(input("Введіть ширину кімнати: "))
b = float(input("Введіть висоту кімнати: "))
c = float(input("ширину віна: "))
d = float(input("висоту вікна: "))
m = float(input("ширину дверей: "))
n = float(input("висоту дверей: "))
s = 4*(a * b )#площа 4 сторін кімнати
s_v = (c * d )#площа вікна
s_d = (m * n )#площа дверей
print('Площа всіх стін: ',s)
print("Площа вікна: ",s_v)
print("Площа дверей: ",s_d)
print("Площа для поклеювання обоїв :",s-(s_d+s_v),'m^2' )

2)
n = int(input("n = "))
while n>0:
a = n%10
n = n//10
print(a,end="")
4,6(13 оценок)
Открыть все ответы
Ответ:
Vlipli779
Vlipli779
05.11.2022
Var f:file of integer;   
 a,i,k,n:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Четное количество элементов: ');
readln(n);
until(n>1) and (n mod 2=0);
for i:=1 to n do
 begin 
 a:=random(100); 
 write(f,a); 
end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin 
 read(f,a); 
write(a,' ');
 end;
close(f);
writeln;
reset(f);
seek(f,filesize(f)div 2);
truncate(f);
writeln('Содержание измененного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a); 
 write(a,' '); 
end;
close(f);
readln
end.
4,6(28 оценок)
Ответ:
3Belchonok3
3Belchonok3
05.11.2022
Верный ответ под номером 3, так как 
for i:=0 to 10 do A[i]:= i; 
Этот участок отвечает за присваивание элементам числа от 0 до 10, элементы после выполнения: 0 1 2 3 4 5 6 7 8 9 10
for i:=1 to 11 do A[i-1]:= A[11-i];
Этот участок, можно сказать, отражает вторую половину, в результате получается вот такое: 10 9 8 7 6 5 6 7 8 9 10

Участок кода для проверки на PascalABC.NET:
begin
  var a:=ArrGen(11,t->t);
  for var i:=0 to 10 do A[i]:= i; a.Println;
  for var i:=1 to 11 do A[i-1]:= A[11-i]; a.Println;
end.
4,8(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ