program first;
var a,b: integer;
begin
randomize;
{Получаем значение с клавиатуры}
readln(a);
{Выбираем случайное число}
b:= random( 100);
writeln(b);
{Сравниваем данные значения}
if a = b then writeln('Данные числа равны')
else if a > b then writeln('Первое число больше второго')
else if b > a then writeln('Первое число меньше второго');
end.
<span>Это действия, связанные с получением и передачей, хранением и обработкой информации. </span>
В виде файла и в виде текстовова
Program primer;
Uses crt;
var i,n: integer;
a:array[1..100] of integer;
begin clrscr;
randomize;
write('Pazmer massiva = ');
readln(n);
for i:=1 to n do
a[i]:= random(100)-50;
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;
for i:=n downto 1 do
write(a[i]:5);
readln;
end.
uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln(length(s) ,' символов');
writeln(s[1] ,' первый символ ', s[2] ,' второй символ ', s[length(s)] ,' последний символ');
if (s[length(s)] = s[1]) then
begin
writeln('совпадают');
end
else writeln('не совпадают');
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');
end.