Составьте две программы в Pascale ABC с циклами For или While

@Катенька =)) · Регистрация: 05.10.2009

№1
Составте программу для вычисления суммы чисел кратных 5 в диапазоне от 1 до 100!??

№ 2
Составте программу выводящую на экран четырёхзначные числа у которых первая и последняя цифра раны.!!!??

Заранее всем спасибо.. =))

@Inadequate · 18.11.2009, 18:40

1:

Pascal

var
  i:integer;
begin
  writeln('Íàéäåííå ÷èñëà:');
  for i:=1 to 100 do
    if i mod 5 = 0 then
      write(i,' ');
  writeln
end.

Добавлено через 1 минуту

Сообщение от Катенька =))

Составте программу выводящую на экран четырёхзначные числа у которых первая и последняя цифра раны.!!!??

можно ли вам использовать строки? или надо все таки делать через div mod?

@кот Бегемот · 18.11.2009, 18:41

№1
Составте программу для вычисления суммы чисел кратных 5 в диапазоне от 1 до 100!??

Pascal

1 2	for i:=1 to 10 do if i mod 5=0 then s:=s+i;

или

Pascal

1 2	for i:=1 to 20 do s:=s+5*i;

№ 2
Составте программу выводящую на экран четырёхзначные числа у которых первая и последняя цифра раны.!!!??

Pascal

1 2	for i:=1000 to 9999 do if i div 1000=i mod 10 then writeln i;

Опции темы

Составьте две программы в Pascale ABC с циклами For или While

Решение