- В этой теме 4 участника и 6 ответов.
-
Записи
-
ребята кто может помогите решить ,у нас не получается по программированию.(Турбо Паскаль)
Задача 1.
Ветвление. Составте программу ,проверяющую ,верно ли утверждение,что введенное число является четным.
Задача 2.
Строки. Вводится строка символов.Преобразуйте её следующим образом: каждый пробел замените символом с А -кодом 249.Задача 1.
Ветвление. Составьте программу, проверяющую, верно ли утверждение, что введенное число является четным.program vetvlenie;
var a:integer;
begin
write(‘Vvedite chislo:’);
readln(a);
if a mod 2=0 then
writeln(‘Utverjdenie verno’)
else writeln(‘Utverjdenie neverno’);
readln;
end.Задача 2.
Строки. Вводится строка символов. Преобразуйте её следующим образом: каждый пробел замените символом с ASCII-кодом 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.Спасибо!!!!!!
Саша , я опять с просьбой.извини.,помоги еще. А то устала от этих решений.,немогу помочь дочери.1.Цикл с параметром. Даны натуральные числа от 35 до 87.Найти и напечатать те из них,которые при делении на 7 дают остаток 1, 2 или 5.
2. Решить задачу двумя спосабами, используя циклы с постусловием и предусловием.
Составить программу вычисления суммы 20 последовательных нечётных чисел натурального ряда, начиная с числа 7.С большой благодарностью ❗
1.Цикл с параметром. Даны натуральные числа от 35 до 87.Найти и напечатать те из них,которые при делении на 7 дают остаток 1, 2 или 5.
program cykl;
var a:integer;
begin
for a:=35 to 87 do
begin
if (a mod 7=1) or (a mod 7=2) or (a mod 7=5) then
write(a,’ ‘);
end;
readln;
end.2. Решить задачу двумя способами, используя циклы с постусловием и предусловием.
Составить программу вычисления суммы 20 последовательных нечётных чисел натурального ряда, начиная с числа 7.1 способ
program s;
var s,i,n:integer;
begin
s:=0; i:=7; n:=0;
while n<20 do
begin
s:=s+i;
i:=i+2;
n:=n+1;
end;
writeln('summa=',s);
readln;
end.2 способ
program s2;
var s,i,n:integer;
begin
s:=0; i:=7; n:=0;
repeat
s:=s+i;
i:=i+2;
n:=n+1;
until n=20;
writeln('summa=',s);
readln;
end.
- Для ответа в этой теме необходимо авторизоваться.