 |
www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
|
| 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
|
 Wysł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 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
|
| Wysł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 poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
robingib
Starosta
Dołączył: 02 Gru 2007
Posty: 16
Przeczytał: 0 tematów
|
| Wysł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 |
|
|
|
|
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
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
