Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.02.2018 02:54
- Информатика
- remove_red_eye 16596
- thumb_up 21
Ответы и объяснения 1
/////
var
wall1, wall2: Integer;
door1, door2: Integer;
window1, window2: Integer;
a, b, c, d: Integer;
a1, b1, c1, d1:Integer;
begin
writeln('Введите длину стены');
readln(wall1);
writeln('Введите Ширину стены стены');
readln(wall2);
writeln('Введите длину двери');
readln(door1);
writeln('Введите ширину двери');
readln(door2);
writeln('Введите длину окна');
readln(window1);
writeln('Введите ширину окна');
readln(window2);
a:=wall1 * wall2;
b:=door1 * door2;
c:=window1 * window2;
d:=a - b - c;
a1:=wall1+wall2*2;
b1:=door1 + door2*2;
c1:=window1 + window2*2;
writeln('Площадь комнаты', d);
writeln('Периметр комнаты', d);
end.
2:
/////////////
var
a, b:Integer;
begin
writeln('Введи 1 число');
readln(a);
writeln('Введи 2 число');
readln(b);
if a > b then
begin
a:=a*4;
b:=b+4
end;
else
begin
a:=a+4;
b:=b*4;
end;
writeln(' 1Число равно= ' a);
writeln('2 Число равно= ' b);
end;
- 20.02.2018 13:05
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.