Программа: Какое расстояние меньше? в футах или километрах?

Задача: Ввести количество километров и количество футов. Сравнить, при условии, что 1км = 0.45 фута

PROGRAM fut;

var x,y,z :real;

BEGIN

Write ('Введите километры: ');

Read (x);

Write ('Введите футы: ');

Read (y);

y:=y * 0.45; {Перевод футов в километры}

if x<y {Сравнение километров и футов переведенных в км.}

then WriteLn ('Расстояние в километрах меньше')

else WriteLn ('Расстояние в футах меньше');

END.

Программа: Какая из трех цифр числа больше?

Задача: Дано трехзначное число. Определить, какая из его цифр больше

• Первая или последняя

• Первая или вторая

• Вторая или последняя

PROGRAM chislo;

var x,z :integer;

var y,w,q :real;

BEGIN

Write ('Введите трехзначное число: ');

Read (x);

y:=x div 100; {определяем первую цифру y=первая цифра}

z:=x mod 100; {определяем вторую и третью цифру z=первая, вторая цифра}

w:=z div 10; {определяем вторую цифру w=вторая цифра}

q:=z mod 10; {определяем вторую третью q=третья цифра}

WriteLn ('а)Первая или последняя цифра?');

if y<q

then WriteLn ('Последняя цифра больше')

else WriteLn ('Первая цифра больше');

WriteLn ('б)Первая или вторая цифра?');

if y<w

then WriteLn ('Вторая цифра больше')

else WriteLn ('Первая цифра больше');

WriteLn ('в)Вторая или последняя цифра?');

if w<q

then WriteLn ('Последняя цифра больше')

else WriteLn ('Вторая цифра больше');

END.

Программа: Ваша футбольная команда - чемпион!

Задача: Составить прогамму, которая запрашивает название футбольной команды и повторяет его на экране со словами: "Это чемпион!"

PROGRAM footbol;

USES crt;

VAR str: string;

BEGIN

WriteLn('Введите название футбольной команды: ');

ReadLn(str);

WriteLn(str,' - чемпион!!!');

END.

Программа: Вывод 1 и 5 символа слова

Задача: Ввести слово из 5 символов и вывести 1 и 5 симовол введенного слова

PROGRAM vivodsimvolov;

var str: string[5];

var i :integer;

BEGIN

WriteLn ('Введите строку из 5 символов: ');

ReadLn (str);

for i:=0 to 5 do

Write (str[i]);

WriteLn ('Смотри ниже робит или нет') ;

Write (str[1]);

Write (str[5]);

END.

Программа: Простая таблица умножения на 2 до n числа

Задача: Сделать таблицу умножения на 2 до n числа - такого вида: 2*1=2 2*2=4 2*3=6 2*4=8 .....

PROGRAM tableumnog;

var pr,i,n:integer;

BEGIN

ReadLn (n);

for i:=1 to n do

begin

pr:=2 * i;

WriteLn('2 * ',i,' = ',pr);

end;

END.

Программа: Вычисление n факториала

Задача: Вычислить сумму факториалов 1!+2!+3!+...n! значение n вводится с клавиатуры

PROGRAM faktoriali;

var sum,a,n,i:integer;

BEGIN

a:=1;

sum:=0;

ReadLn(n);

for i:=1 to n do

begin

a:=i*a;

sum:=sum+a;

end;

write(sum);

END.

Программа: Средняя масса легких и тяжелых

Задача: Определить среднюю массу легких и тяжелых людей по отдельности, при условии, что количество человек не ограничено. Тяжелые весят более 100кг., легкие - менее 100кг.

PROGRAM massa;

var i,x :integer;

var m,srt,a1,a2,srl :real;

BEGIN

WriteLn ('Количество человек:');

ReadLn (x);

a1:=0;

a2:=0;

srt:=0;

srl:=0;

for i:=1 to x do

begin

WriteLn ('Введите массу ', i, ' -го человека');

Read (m);

if m>100

then

begin

srt:=m+srt;

a1:=a1+1;

end

else

begin

srl:=m+srl;

a2:=a2+1;

end;

end;

srt:=srt / a1;

srl:=srl / a2;

WriteLn ('Средняя тяжелых:' ,srt);

WriteLn ('Средняя легких:' ,srl);

END.