нужно написать программу (packal abc). программа такая: введи три числа (неизвесно какие 3 числа (целые или вещественные) так что 6 чисел ну типа
5-9 класс
|
такого: var a,b,c:(integer)-целые; l,k,n:(real)-вещественные), найти сумму первых двух чисел, частное второго и третьего числа и утроить сумму трёх чисел. мне нужно составить программу дальше я знаю только начало: program ur1; var a,b,c:integer; l,k,n:real; begin и всё я дальше не могу сделать, помогите полажуйста чем можете!
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b,' ',b/c,' ',3*(a+b+c));
end.
Другие вопросы из категории
Program Ah;
uses crt;
var A:array[1..15] of integer;
i,k,n:integer;
begin
clrscr;
for i:=1 to 18 do begin
writeln('A[',i,']=');
read(A[i]);
end;
writeln('Введите число');
read(n);
k:=0;
for i:=1 to 15 do begin
if a[i]>n then
k:=k+1;
writeln('k=',k);
readkey;
end.
(В последней строке выдает "Ошибка, ожидается точка с запятой")
может перейти его за 1 минуту, мама — за 2, малыш — за 5, а бабушка — за 10 минут. У них есть один фонарик. Мост выдерживает только двоих. вот с такой штукой !!!!
плиззз
ВХОДНЫЕ ДАННЫЕ S- стоимость покупки с учетом скидки( если она предоставляется)
Читайте также
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
z);
if (x<=y) and (y<=z) then begin x:=2*x y:=2*y; z:= 2*z
end
else
begin
x:= abs(x) y:= abs(y) z:= abs(z)
end
writeln( x, ' ', y, ' ', z)
end
Составьте блок-схему, соответствующую программе.
Что является результатом работы программы?
1...Записать на языке паскаля: Условие 1) -3<x<=(меньше или равно)10;
2)x (не равно 0) ,у(не равно 0);
3)x(принадлежит) [-10;0);
4)величина x не кратна 3:
2.Cоставить программу,которая находит меньшее из трёх введённых чисел a,b,c и выводит на экран.
3.Введите три числа a,b,c.Найдите сумму двух наибольших из них.
ПОМОГИТЕ ПОЖАЛУЙСТА,ОЧЕНЬ ВАЖНОЕ ЗАДАНИЕ,ОТВЕЧУ ВЗАИМНОСТЬ...)
Огромное спасибо за ранее...
Нужно на языке программирования в программе Паскаль, создать программу:
Найти произведение, сумму и количество всех отрицательных чисел на отрезке [x;y].