1. Напечатать ряд из повторяющихся чисел 20 в виде:
20 20 20 20 20 20 20 20 20 201. Напечатать числа следующим образом:
10 10.4
11 11.4
. .
25 25.42. Напечатайте 20 первых степеней числа 23. Вывести на экран натуральные числа от 1 до 100,
которые при делении на 6 дают в остатке 4, и их количество.
4. Вводятся четыре числа: а, в, с, d. Выведите все
числа на отрезке от а до в, дающие остаток с при делении на d.
Другие языки программирования и технологии
помогите решить задачи с циклом по информатике в программе паскаль
Первые два задания я не понял.
Вот что у меня получилось:
===================================
{
Напечатайте 20 первых степеней числа 23.
}
var
a,i: integer;
begin
a := 1;
for i := 1 to 20 do begin
a := a * 23;
write(a,' ');
end;
end.
=====================================
{
Вводятся четыре числа: а, в, с, d. Выведите все
числа на отрезке от а до в, дающие остаток с при делении на d.
}
var
a,b,c,d,i :integer;
begin
write('Enter a: ');
readln(a);
write('Enter b: ');
readln(b);
write('Enter c: ');
readln(c);
write('Enter d: ');
readln(d);
for i := a to b do begin
if (i mod d = c) then write(i,' ');
end;
end.
========================================
{
Вывести на экран натуральные числа от 1 до 100,
которые при делении на 6 дают в остатке 4, и их количество.
}
var
a,sum,i :integer;
begin
sum := 0;
for i := 1 to 100 do begin
if(i > 6) and (i mod 6 = 4) then begin
write(i,' ');
inc(sum);
end;
end;
writeln();
writeln('Количество рано ', sum);
end.
Вот что у меня получилось:
===================================
{
Напечатайте 20 первых степеней числа 23.
}
var
a,i: integer;
begin
a := 1;
for i := 1 to 20 do begin
a := a * 23;
write(a,' ');
end;
end.
=====================================
{
Вводятся четыре числа: а, в, с, d. Выведите все
числа на отрезке от а до в, дающие остаток с при делении на d.
}
var
a,b,c,d,i :integer;
begin
write('Enter a: ');
readln(a);
write('Enter b: ');
readln(b);
write('Enter c: ');
readln(c);
write('Enter d: ');
readln(d);
for i := a to b do begin
if (i mod d = c) then write(i,' ');
end;
end.
========================================
{
Вывести на экран натуральные числа от 1 до 100,
которые при делении на 6 дают в остатке 4, и их количество.
}
var
a,sum,i :integer;
begin
sum := 0;
for i := 1 to 100 do begin
if(i > 6) and (i mod 6 = 4) then begin
write(i,' ');
inc(sum);
end;
end;
writeln();
writeln('Количество рано ', sum);
end.
Чем помочь. На каком этапе непонятно? В какой задаче?
Прочитайте про форматирование вывода, например тут:
http://ipg.h1.ru/lessons/pascal/les17.html
Потом про циклы, например тут:
http://pas1.ru/cycles
Отстаток от деления A на B = A mod B
Используйте голову (желательно свою) или деньги (желательно чужие) .
Удачи.
http://ipg.h1.ru/lessons/pascal/les17.html
Потом про циклы, например тут:
http://pas1.ru/cycles
Отстаток от деления A на B = A mod B
Используйте голову (желательно свою) или деньги (желательно чужие) .
Удачи.
Похожие вопросы
- Помогите решить задачу на Турбо паскале
- Кто знает очень сложные задачи по информатике, для программы Паскаль?? ? Напишите несколько задач...
- Помогите решить задачи по Паскалю
- помогите решить задачу на паскале: напечатать "столбиком" значения sin2, sin3, ..sin 20.
- Помогите решить задачу по информатике ...паскаль
- Помогите решить задачу по информатике. Массивы. Язык программирования Паскаль.
- Народ, слезно прошу помочь решить задачу по информатике (програмирование), я просто ноль в этом(((
- Помогите решить задачу в паскале
- Помогите решить задачу на паскале
- Помогите решить задачу на языке Паскаль. Найти сумму всех чётных чисел от 1 до 1000 (задачу решить 2 способами)