Question

Napisz program zliczający ile razy w danym tekście wystąpiła litera a i A duże
2 napisz program który sprawdza czy suma wczytanych liczb nie jest większa od tysiąca
zadania mają być w turbo pascalu całe programy

Answer 1

Zad 2
program dwa;
uses crt;
var a,b,c:integer;
begin
crlscr;
writeln ('podaj dwie liczby do zsumowania');
readln (a,b);
c:=a+b;
if c>1000 then writeln('suma wieksza od tysiaca')
else
writeln('suma mniejsza od tysiaca');
readln;
end.

zad 1
możesz użyć funkcji POS(s1,s);
wyszukuje w ciągu znaków s łańcuch s1 i podaje miejsce w którym po raz pierwszy wystąpiło

wiele jest sposobów ale już nie pamiętam

wybacz ale nie chce mi się pisać tego listingu