Выполните сложение и умножение 1. 10010 и 1001
2. 11001 и 11001
3. 1101 и 1110
4. 1010 и 110
5. 1001 и 111
6. 11111 и 10011
7. 10011 и 101

Question

Информатика: Выполните сложение и умножение 1. 10010 и 1001 2. 11001 и 11001 3. 1101 и 1110 4. 1010 и 110 5. 1001 и 111 6. 11111 и 10011 7. 10011 и 101

228465 · Accepted Answer

Более красивый вариант)

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.

Выполните сложение и умножение 1. 10010 и 1001 2. 11001 и 11001 3. 1101 и 1110 4. 1010 и 110 5. 1001 и 111 6. 11111 и 10011 7. 10011 и 101

MOGZ ответил

Выполните сложение и умножение 1. 10010 и 1001
2. 11001 и 11001
3. 1101 и 1110
4. 1010 и 110
5. 1001 и 111
6. 11111 и 10011
7. 10011 и 101