сервис вопросов и ответовДана пачка денег больше 7 рублей.выдать деньги по 3 и 5 рублей.задача на Паскаль
10-11 класс|
|
0898
12 нояб. 2013 г., 6:03:38 (10 лет назад)
Lobnia
12 нояб. 2013 г., 7:31:36 (10 лет назад)
var a: integer;
begin
readln(a);
while (a >= 3) do
begin
if (a >= 4) then
begin
writeln(a, ' - 4 = ', a - 4);
a := a - 4;
end;
if (a >= 3) then
begin
writeln(a, ' - 3 = ', a - 3);
a := a - 3;
end;
end;
end.
Так?
Ответить
Другие вопросы из категории
Помогите найти ошибку , программа работает неполноценно , всё пересмотрел , ошибки не нашёл...Программа в Pascal:Метод выборный.
Program test;
uses crt;
Const
N=5;
var a : array [1..N] of integer;
var i , Max , k , t , f : integer;
begin
For i:=1 to N do
A[i]:=random(8);
write ('Массив');
writeln;
For i:=1 to N do
begin
write (A[i]);
write (' ');
end;
writeln;
For i:=1 to (N-1) do
begin
Max:=A[i];
For k:=i+1 to N do
If (A[k]>Max) then
begin
Max:=A[k];
f:=k;
end;
t:=A[i];
A[i]:=A[f];
A[f]:=t;
end;
write ('Упорядоченный массив');
writeln;
For i:=1 to N do
begin
write (A[i]);
write (' ');
end;
end.
Пожалуйста помогите с номером 7)))
Буду очень признательна вам :)♥♥
Читайте также
Даны действительное число а и натуральное число n. Вычислить. Задача на паскале!!
p=a(a+1)...(a+n-1)
n=3
p=a(a+1)*(a+2)
Написать программу на Паскале. Дано четырехзначное натуральное число. Найти количество цифр данного числа, большие цифры А (А вводит пользователь) и
определить, верно ли, что данное число кратно 3.
Напишите прог-у на паскале... ПЛИИИИИИИИИИЗ 1)даны действительные числа a1, b1, c1, a2, b2, c2. Составьте программу, которая находит координаты точки
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
Задание #1
Напиши программу, вычисляющую периметр и площадь прямоугольника. Используй для этого длину и ширину прямоугольника, которые вводятся с клавиатуры.
Задание #2
Напиши программу, вычисляющую стоимость покупки с учетом 10 %-й скидки, которая предоставляется только в том случае, если сумма покупки больше 1000 рублей.
Задание #3
Напиши программу, вычисляющую сумму всех четных чисел от 1 до N.
Задание #4
Напиши программу, вычисляющую среднее арифметическое заранее созданного массива случайных чисел из 10 элементов.
Вы находитесь на странице вопроса "Дана пачка денег больше 7 рублей.выдать деньги по 3 и 5 рублей.задача на Паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.