Задачи в делфи

[aiganym]

эти задачи на экзамен

1. С клавиатуры вводится шестизначный номер трам-вайного билета. Определить, является ли билет счастливым?
Счастливым является билет, сумма первых трех цифр номера которого равна сумме последних трех цифр.
2. Первая бригада маляров за 1 ч покрасила А м2 стен, а вторая бригада за 12 ч покрасила В м2. У какой бригады производительность труда выше и на сколько?
3. Кусок медного провода длиной 5 м имеет массу 430 г. Чтобы провести проводку в квартире — требуется С м. Хватит ли для этой цели мотка провода массой Мг?
4. Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число является четным?
5. Ракета запускается с точки на экваторе и развивает скорость v км/с. Каков результат запуска? Замечание: если v <7,8 км/с, то ракета упадет на Землю, если 7,8< v <11,2, то ракета станет спутником Земли, если 11,2< v < 16,4, то ракета станет спутником Солнца, если v >16,4, то ракета покинет Солнечную систему.


6. Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N вводится с клавиатуры.


7. Составьте программу, которая по введенному вами k — числу грибов, печатает фразу «Мы нашли в лесу k грибов», причем согласовывает окончание слова «гриб» с числом к.



8. Написать программу, которая бы запрашивала
возраст мужчины и сообщала, сколько лет ему осталось до
пенсии, либо что он уже пенсионер (пенсионный возраст
равен 63).

[fbus]

аська в подписи

[Mad_Cat]

Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число является четным?

var C:integer;
begin
readln(c);writeln(not odd(C));
end.

Кусок медного провода длиной 5 м имеет массу 430 г. Чтобы провести проводку в квартире — требуется С м. Хватит ли для этой цели мотка провода массой Мг

?

Var C,M:real;
begin
Readln(C,M);
writeln(M*5/430 >= C);
readln;
end.

6. Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N вводится с клавиатуры.

var i,N,S:integer;
begin
s:=0;
readln(N);
For i:=1 to n do inc(s,i);
writeln(s);
readln;
end.