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

Написать программу, которая вводит длину сторон прямоугольника a и b и вычисляет его площадь S = a•bи периметр

👇
Ответ:
madinakz1
madinakz1
10.06.2020

var a, b,s, p : integer; //Инициальзация переменных

begin

 writeln('Введите a и b.'); // Вывод текста

 readln(a,b); // Ввод переменных а, b

 s := a*b; // Считаем площадь

 p := 2 * (a+b); // Считаем периметр

 writeln('S=' + s); // Выводи площадь

 writeln('P = ' + p); // Выводим перимитр

end.

4,5(97 оценок)
Открыть все ответы
Ответ:
bbb87
bbb87
10.06.2020

а)

def sum(x):

x_str = str(x)

first = x_str[0]

second = x_str[1]

third = x_str[2]

sum = int(first) + int(second) + int(third)

return sum % 2 == 0

б)

def triangle(a, b, c):

return a != b and b != c

Объяснение:

Написал две функции на Python. Первая принимает переменную x - по условию это трехзначное числ, так что я не стал прописывать код для проверки. Вторая функция ещё проще, просто сравнивает три переменных между собой. Первую функцию можно сильно сократить, если не переврдить отдельные цифры в переменные, а вставить их непосредственно в return. При отправке сюда смещение не сохранилось, расставить его не составит труда. Попробую добавить ссылку на пэйстбин, надеюсь не забанят https://pastebin.com/4qTF1jCm

4,5(33 оценок)
Ответ:
yananesteshl
yananesteshl
10.06.2020
{даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательностикратных 3 и не кратных 5}
program zadacha;
vara: array[1..255] of byte;i,n,k: integer;
beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end;
k:=0;writeln();for i:=1 to n do begin    if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then   begin k:=k+1;   write(a[i]:6);   end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.
Даны n натуральных чисел .определить и вывести количество членов последовательности кратных 3 и не к
4,4(50 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ