Программа покупки <газеты или журнала> (принимает деньги <сумма вводится с клавиатуры> и печатает сумму сдачи)

[infernal110]

Ребят очень срочно нужно написать программу в Паскале завтра по ней зачет,помогите пожалуйста вот текст задачи:
В киоске продается газета стоимостью 3коп. и журнал стоимостью 20коп. Составьте программу, которая спрашивает о желании покупателя <газета или журнал>, принимает деньги <сумма вводится с клавиатуры> и печатает сумму сдачи
Заране спасибо,надеюсь в вашей помощи


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Pein95]

Что сами то сделали?

[infernal110]

нет застрял на моменте где выбор пользователя предоставляется либо газета либо журнал

[Pein95]

ну пусть тода газета ето будет еденица а журнал 0) подумайте что дальше делать)

[infernal110]

я не знаю оператора условия чтобы допустим нажать 1 это он выбрал газету а если 0 то журнал

[Pein95]

ну так прочитайте про него в книге) если не хотите сами ничего делать предложыте вознагрождение)

[Lasur]

Сообщение от infernal110

я не знаю оператора условия чтобы допустим нажать 1 это он выбрал газету а если 0 то журнал

Условные операторы Pascal-Паскаль

[Alex11223]

я не знаю оператора условия

А что знаешь?

[Leshii]

Думаю тему можна закрывать.А таки тролим господа.

Program troling;
Uses crt;
var p:integer;
    k:byte;
begin
clrscr;
Writeln('-------------------------');
Writeln('Stoimost }I{ypnala 20 kop');
Writeln('Stoimost ra3etu 3 kop');
Writeln('-------------------------');
writeln('Skolbko y vas }I{uvnosti v koshelke');
readln(k);
writeln;
Writeln('4to }I{elate kypit  }I{ypnal / ra3ety '); { }{{ypnal (1), ra3eta(2)}
readln(p);
case p of
 1:begin
    writeln('Vu kypili }I{ypnal 3a 20 kop');
    if k>100 then k:=k mod 100;{cо здачей поиграйся}
    k:=k-20;
    writeln ('Vasha zdacha ',k:1,'kop');
    end;
 2:begin
    writeln('Vu kypili ra3ety 3a 3 kop');
    if k>100 then k:=k mod 100;{cо здачей поиграйся}
    k:=k-3;
    writeln ('Vasha zdacha ',k:1,'kop');
end;
end;
readln;
end.

Там думаю уже сам додумает что к чему)

[infernal110]

спасибо больше зачет сегодня сдал)))