Помогите пожалуйста составить линейные алгоритмы.
5-9 класс
|
1. Найти площадь и периметр квадрата со стороной а.
2. Пол в кухне размером a на b, размер плиткиек? х на у . Количество плиток в пачке N-штук. Сколько нужно пачек?
Программа Паскаль
var a,s,p:integer;
begin
readln(a);
s:=a*a;
p:=4*a;
writeln(s);
writeln(p);
end.
var a,b,x,y,n:integer;
s:real;
begin
readln(a);
readln(b);
readln(x);
readln(y);
readln(n);
s:=(a*b*sqr(x)*sqr(y))/n;
writeln(s:0:0);
end.
Другие вопросы из категории
и компьютером и заполните таблицу. Органы человека: органы чувств, мозг, мозг, органы речи и опорно-двигательной системы. Информационный процесс: приём (ввод) информации, хранение информации, обработка информации, передача (вывод) информации. Устройства компьютера......... Пожалуйста, помогите!
2)Выясните происхождение названия языка программирования Паскаль
Читайте также
1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;
2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.
3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.
Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!
на тему:
создание списка с курсивным начертанием цифр.
Очень срочно!!!
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!