Автор Сообщение
elrejsh
СообщениеДобавлено: Пн 30 Мар, 2009 22:28    Заголовок сообщения: спасибо
Спасибо тебе и конечно дочери!
admin
СообщениеДобавлено: Пн 30 Мар, 2009 22:12    Заголовок сообщения:
Nadezhda писал(а):
Админ у нас как всегда на высоте!!! Exclamation
Тут уж не совсем я, а моя дочка.
admin
СообщениеДобавлено: Пн 30 Мар, 2009 22:09    Заголовок сообщения:
elrejsh писал(а):
1.Цикл с параметром. Даны натуральные числа от 35 до 87.Найти и напечатать те из них,которые при делении на 7 дают остаток 1, 2 или 5.

program CycleWithPar;
var i,r:integer;
begin
for i:=35 to 87 do
begin
r:=i mod 7;
if (r=1)or(r=2)or(r=5) then
write(i,' ');
end;
readln;
end.
elrejsh писал(а):
2. Решить задачу двумя спосабами, используя циклы с постусловием и предусловием.
Составить программу вычисления суммы 20 последовательных нечётных чисел натурального ряда, начиная с числа 7.

1 способ
program Cycles;
var i,sum:integer;
begin
i:=0;
sum:=0;
write('Cikl s predusloviem: ');
while i<20 do
begin
sum:=sum+7+2*i;
inc(i);
end;
writeln(sum);

2 способ
i:=0;
sum:=0;
write('Cikl s postusloviem: ');
repeat
sum:=sum+7+2*i;
inc(i);
until i=20;
writeln(sum);
readln;
end.
elrejsh
СообщениеДобавлено: Пн 30 Мар, 2009 21:18    Заголовок сообщения:
Спасибо!!!!!!
Саша , я опять с просьбой.извини.,помоги еще. А то устала от этих решений.,немогу помочь дочери.

1.Цикл с параметром. Даны натуральные числа от 35 до 87.Найти и напечатать те из них,которые при делении на 7 дают остаток 1, 2 или 5.

2. Решить задачу двумя спосабами, используя циклы с постусловием и предусловием.
Составить программу вычисления суммы 20 последовательных нечётных чисел натурального ряда, начиная с числа 7.

С большой благодарностью Exclamation
Nadezhda
СообщениеДобавлено: Пн 30 Мар, 2009 17:57    Заголовок сообщения:
Админ у нас как всегда на высоте!!! Exclamation
admin
СообщениеДобавлено: Пн 30 Мар, 2009 14:28    Заголовок сообщения: Re: срочно....!!!
elrejsh писал(а):
Задача 1.
Ветвление. Составте программу ,проверяющую ,верно ли утверждение,что введенное число является четным.

program vetvlenie;
var a:integer;
begin
write('Vvedite chislo:');
readln(a);
if a mod 2=0 then
writeln('Utvergdenie verno')
else writeln('Utvergdenie neverno');
readln;
end.
elrejsh писал(а):
Задача 2.
Строки. Вводится строка символов.Преобразуйте её следующим образом: каждый пробел замените символом с АSCII -кодом 249.

program stroki;
var s:string;
i:byte;
begin
writeln('Vvedite stroku:');
readln(s);
for i:=ord(s[0]) downto 1 do
if s[i]=' ' then
s[i]:=chr(249);
writeln(s);
readln;
end.
elrejsh
СообщениеДобавлено: Вс 29 Мар, 2009 15:42    Заголовок сообщения: срочно....!!! программирование Турбо Паскаль
ребята кто может помогите решить ,у нас не получается по программированию.(Турбо Паскаль)

Задача 1.
Ветвление. Составте программу ,проверяющую ,верно ли утверждение,что введенное число является четным.
Задача 2.
Строки. Вводится строка символов.Преобразуйте её следующим образом: каждый пробел замените символом с АSCII -кодом 249.