Решить пользуясь алгоритмами и программой паскаль:
5-9 класс
|
1) В прямоугольнике известны стороны а и b,вычислите периметр и площадь.
2) Известно число а, число b в два раза больше. А число с на 3 раза меньше, чем сумма первых двух.
1)
Program Rectangle
var
a,b :integer;
Function Perimeter(Fa:integer;Fb:integer) :integer
Begin
Perimeter:=Fa+Fa+Fb+Fb;
End
Function Square(Fa:integer;Fb:integer) :integer
Begin
Square=Fa*Fb;
End
Begin
Write('Введите сторону a: ');
Readln(a);
Write('Введите сторону b: ');
Readln(b);
Writeln(Perimeter(a,b));
Writeln(Square(a,b));
End
2)
Program Nums
var
a,b:integer; c:real;
Begin
Write('A = ');
Readln(a);
Begin
b:=2*a
c:=(a+b)/3
End
Writeln('B = ',b);
Writeln('C = ',c)
End
PS:Паскаль это язык, а не программа.
Другие вопросы из категории
адать. Он может задавать вопросы коле, допускающие только ответы да или нет. Петя разработал алгоритм, позволяющий за наименьшее число вопросов отгадать число, задуманное Колей. Выясните сколько вопросв потребуется Пете, чтобы отгадать задуманное число , если оно принадлежит интервалу: 1) от 1 до 32 2) от 1 до 512 3) от 1 до 300 4) от 1 до 1024 Плз помогите срочно надо!!!!!!!!!!!!
Читайте также
превосходящие N, в порядке возрастания.
Операцией возведения в степень пользоваться нельзя!
2)
В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.
Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
высота - В метров. Рулон обоев имеет длину 12 метров и ширину K см. Составьте алгоритм и программу, которая определит стоимость обоев для всей стены, если цена одного рулона C руб.