Написать программу, которая по двум введенным с клавиатуры сторонам прямоугольника определит его периметр и площадь.

Реализация на языке python и библиотеке math

Объяснение:

Прикрепил фото, возможно где-то будут грамматические ошибки, потому что сделано на скорую руку, программа запрашивает, сколько тебе известно сторон и уже подстраивается под тебя , пишешь , что две стороны - считает по Пифагора, пишешь, что три - считает обычным

program perimetr;

var

a, b, p, s: real;

begin

writeln('введите стороны прямоугольника');

readln(a, b);

p := (a + b) * 2;

s := a * b;

writeln('периметр равен ', p);

writeln('площадь равна ', s);

end.

Объяснение:

язык:паскаль

пользователь вводит 2 стороны,а программа находит периметр и площадь

~~~~~~~~~~~~~~~

Программа:

program change;

var

a, b, c, d, changeabcd: integer;

begin

 changeabcd := 0;

 read(a, b, c, d);

 changeabcd := d - (a + b + c);

 write(changeabcd);

end.

~~~~~~~~~~~~~~~

Алгоритм:

Шаг 1. Присвоить переменной changeabcd значение 0;

Шаг 2. Ввести a, b, c, d;

Шаг 3. Вычислить changeabcd = d - (a + b + c);

Шаг 4. Вывести changeabcd.

~~~~~~~~~~~~~~~

Блок-схема в прикрепленном скриншоте.

Объяснение:

program change;  // Название программы

var

 a, b, c, d, changeabcd: integer;  // Создание целочисленных переменных:

a, b, c, d - стоимость перчаток, портфеля, галстука и сумма, выделенная на покупку;changeabcd - сдача.

begin  // Начало программы

 changeabcd := 0;  // Переменной, хранящую сдачу, присваиваем 0

 read(a, b, c, d);  // Считываем значения переменных с клавиатуры

 changeabcd := d - (a + b + c);  // Высчитываем сдачу

 write(changeabcd); // Выводим значение переменной changeabcd, хранящей сдачу

end. // Конец программы

Or - "ИЛИ". Если одно из условий верно, то и все выражение принимает истину [ 0 or 1 = 1 ; 1 or 0 = 1; 1 or 1 = 0, 0 or 0 = 0], где 1 - истина, а 0 - ложь
у тебя условие 
If(k>9) or (k<14) then
условие k > 9 выполняется, а значит и все выражение верно
Нужно заменить "OR" на "AND" оператор "И". 
[ 1 and 1 = 1 ] при всех остальных - ложь

Вот код

var
k: integer;
begin
 readln(k);
  if k > 17 then
    Writeln('ваша оценка 5. Молодец!');
  if (k > 13) and (k < 18) then 
    Writeln('ваша оценка 4.'); 
if(k > 9) and (k < 14) then 
    Writeln('ваша оценка 3.'); 
if k < 10 then
    Writeln('ваша оценка 2.');
end.