tümü

pascal programlama bilen bir baba yiğit aranıyor

  1. 1.
    0
    program örnek;
    var
    tutar, fiyat,miktar:real;
    begin
    writeln ('fiyat gir');
    readln('fiyat')
    writeln ('miktar gir')
    readln('miktar')
    tutar;=miktar x fiyat;
    if tutar>500 then
    tutar:=tutar x 0.85;
    else
    tutar:=tutar x 0.95;
    writeln (tutar);
    end.

    panpa else olmadan yazıcak işte bu programı 1 to 500 do felan mı yazcaz..
    ···
    #87005016 şikayet
   tümünü göster