помогите пожалуйста! написать программу периметра нахождения прямоугольника@@@@
5-9 класс
|
program z1;
uses crt;
var a, b, p: integer;
begin
clrscr;
writeln ('введите длину и ширину: ');
read(a, b);
p:= 2*a + 2*b;
writeln ('периметр равен ', p);
readkey;
end.
Другие вопросы из категории
встречается в тексте В. Шум-это помехи, приводящие к потере информации Г. Информационный обмен между кибернетическими системами происходит путём передачи сигналов
так:
program zad;
var i,r,n:integer;
begin
writeln ('введіть число n');
readln(n);
for i:=i<n and (i mod 3=0) do
begin writeln (r:=...);
end;
readln;
end.
не знаю как найти сумму
найдите среднюю скорость автомобиля
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
1)Написать программу которая меняет местами числа a и b(линейная и оператор присваивания)
2)Программа проверки существования треугольника по его 3 сторонам
Напишите пожалуйста***
Если дано трехзначное число, например 123 его можно представить в виде 3+2*10+1*10*10. Воспользовавшись этой информацией, создайте программу, которая, получая от пользователя трехзначное число, будет определять из каких цифр оно состоит и выводить их через пробел (например, 1_2_3).
Напечатать таблицу перевода 1,2,…, 20 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры).