Более красивый вариант)
Program N_1; //Название программы
Var a,b,c:integer; //Переменные
BEGIN
Writeln('Введите длину и ширину прямоугольника'); //Вывести данную строку
readln(a,b); //Считать a и b
if a<b //Если a<b
then begin //то найти периметр
c:=(a+b)*2;
Writeln('Пириметр= ',c) //и вывести его
end
else begin //Если a>b
c:=a*b; //то найти площадь
writeln('Площадь= ',c) //и вывести ее.
end;
END.<span>
</span>
Ответ:
1) 3
2) 2
3) 3
4) 1
5) 1
6) не смог ответить, т.к. не полностью сфотографировал и нет вариантов ответа.
Ну вроде как все правильно)
Объяснение:
Информация - "разъяснение", сведения, данные в любой форме.
Информатика - наука о работе с информацией
компьютер - "вычислитель", устройство способное выполнять разные заданые операции
файл - данные на носителе ограниченые объёмом и адресованые на определёное имя
текстовый редактор - программа способная создавать, удалять и изменять текстовые файлы (вобще-то она любые файлы может менять)
графический редактор - программа способная создавать, удалять и изменять графические файлы
64 = 2^6 => i=6
8 = 2^3 => i=3
6/3=2
Объем занимаемой памяти уменьшился в два раза.
Var
a,b:real;
begin
read(a,b);
writeln(a*b);
end.