Forum www.ispwsznysa.fora.pl Strona Główna www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Lista 5 - zad 1 mgr H

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
roy
Administrator



Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów

Skąd: Głuchołazy

PostWysłany: Nie 20:40, 02 Gru 2007    Temat postu: Lista 5 - zad 1 mgr H

Kod:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x,i,m,n: integer;
begin
repeat
writeln ('podaj n wieksze od 0');
readln(n);
until n>0;
m:=n;
for i:=1 to n do begin
 if m>=10 then m:=m-10 ;
end;
 if m<10 then n:=m;


writeln (n);

readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.


Ostatnio zmieniony przez roy dnia Pon 19:14, 03 Gru 2007, w całości zmieniany 2 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
roy
Administrator



Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów

Skąd: Głuchołazy

PostWysłany: Nie 20:41, 02 Gru 2007    Temat postu:

Kod:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var n: integer;
begin
repeat
writeln ('podaj n wieksze od 0');
readln(n);
until n>0;

writeln (n mod 10);

readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
robingib
Starosta



Dołączył: 02 Gru 2007
Posty: 16
Przeczytał: 0 tematów


PostWysłany: Nie 21:55, 02 Gru 2007    Temat postu:

mozna i tak.

program zad1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
b: char;
a :string;
begin
repeat
writeln ('podaj a');
readln (a);

writeln ('ilosc jednosci ',a[length (a)]);
readln;



writeln ('czy chcesz jeszcze raz? t/n');
readln (b)
until b='n'


{ TODO -oUser -cConsole Main : Insert code here }
end.
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin