Программы на Паскале

[DmiGo]

cec, большое спасибо. Выручил

[dark_wolf]

DmiGo, держи:
var a, b, c, d, s, r: real;
begin

writeln ('введите число а');
readln (a);
writeln ('введите число b');
readln (b);

c:=a/3;
d:=b+5;
s:=c+d;
r:=a-b;

if s<10.5 then writeln (c,' ', d)
else writeln (r);
end.

Опоздал).

[DmiGo]

Сообщение от dark_wolf

Опоздал).

Ничего. Все равно спасибо.

[dark_wolf]

cec, исправься. Замени в своей программе "b*5" на "b+5".

[cec]

dark_wolf, спасибо.

[Egification]

первая задачка
Определите и выведите на экран количество четырехзначных чисел,делящихся без остатка одновременно на 5 и 11.
вторая задачка
Найдите и выведите на экран все трехзначные числа,кратные 20,сумма цифр которых равна сумме частного от деления их на 20.

[Dr.Gonzo]

Egification
i := 1000
while i <= 9995 do
begin
if (i mod 11) == 0 then
writeln(i);
i := i + 5;
end;

вторая похожа (если проходили подпрограммы 0_0 )
function summ(integer n): integer;
begin
Result := 0;
while n <> 0 do
begin
Result := Result + (n mod 10);
n := n div 10;
end;

begin
i := 100
while i < 1000 do
begin
if Summ(i) == Summ(i div 20) then
writeln(i);
i := i + 20;
end;
end;

[SerginhoLD]

Egification, у тебя все задачки одинаковые, можно было бы давно самому разобраться

[Egification]

SerginhoLD, всё дело во времени,которго к слову почти нет..
сначала школа,затем репетиция,ннадо кое ка сделать уроки,а затем ещё и секция..
жесть...)
Да кстати решите через Repeat-Until:
1)Напечатать минимальное число больше 200,которое делится без остатка на 17
2)Дано число.Есть ли в нём цифра А?

[MaximuZ]

Egification,
1-я
Program First;
var i:integer;
begin
i:=200;
repeat
inc(i);
until i mod 17 =0;
writeln(i);
end.

2-я
Program Second;
var N,i:longint;
A:char;
S:string;
B:Boolean;
begin
readln(N,A);
str(N,S);
b:=false;
i:=0;
repeat
inc(i);
if S[i]=A then B:=true;
until i>=length(s);
if B then writeln('Yes') else writeln('No');
end.