Давайте писать сюда задаЧки и буДем вместе иХ решать ... :э)
ЗадаЧки по информатиКе....
Страница: 1
Сообщений 1 страница 3 из 3
Поделиться12007-10-01 19:34:12
- *грозный Одмин*
- Откуда: Дом 16
- Зарегистрирован: 2007-08-28
- Приглашений: 0
- Сообщений: 561
- Уважение: +12
- Позитив: +3
- Пол: Мужской
- Возраст: 32 [1992-05-20]
- Провел на форуме:
3 дня 21 час - Последний визит:
2009-02-12 02:57:50
Поделиться22007-10-04 22:41:25
- *грозный Одмин*
- Откуда: Дом 16
- Зарегистрирован: 2007-08-28
- Приглашений: 0
- Сообщений: 561
- Уважение: +12
- Позитив: +3
- Пол: Мужской
- Возраст: 32 [1992-05-20]
- Провел на форуме:
3 дня 21 час - Последний визит:
2009-02-12 02:57:50
Щас попробуЮ написать программу определения суммы всеХ нечётныХ чисел в диапазоне от 0 до 99
program name;
var i,s,n:integer;
begin
writeln('Введите число');
readln(n);
for i:=0 to 99 do
// while тут не подходит! прога зависнет, тк нет выхода из цикла!
if (i mod 2)<>0 then
s:=s+i;
writeln ('сумма всех нечётных чисел в диапазоне от 0 до 99 =',s);
readln(n);
end.
Вроде всё .... только знаки ставить там где они стоят ... !!!
Valek: да, теперь всё ок!
Поделиться32007-10-04 22:48:48
- *грозный Одмин*
- Откуда: Дом 16
- Зарегистрирован: 2007-08-28
- Приглашений: 0
- Сообщений: 561
- Уважение: +12
- Позитив: +3
- Пол: Мужской
- Возраст: 32 [1992-05-20]
- Провел на форуме:
3 дня 21 час - Последний визит:
2009-02-12 02:57:50
Подсчитываем кол-во цифр с помощью REPIAT
program name;
var a,i,s:integer;
begin
writeln('введите число');
readln(a);
repiat s:=s+1 a:=a div 10;
until a=0;
writeln('Кол-во чисел =',s);
readln(a);
end.
Это простейшая задаЧка .. :э)
Страница: 1