var
s, n: integer;
begin
Write(‘Введите натуральное число: ‘); Readln(n);
s := ((n + 1) * n) div 2; < сумма арифметической прогрессии >
Writeln(‘Сумма натуральных чисел от 1 до ‘, n, ‘ равна ‘, s)
end.
Результат выполнения программы:
Введите натуральное число: 10
Сумма натуральных чисел от 1 до 10 равна 55
begin
Writeln(‘Квадраты первых пяти нечетных натуральных чисел’);
i := 5 * 2 — 1;
while i > 0 do begin Writeln(i:2, sqr(i):5); i := i — 2 end
end.
Результат выполнения программы:
Квадраты первых пяти нечетных натуральных чисел
9 81
7 49
5 25
3 9
1 1
Источник: megashkola.com
Написать программу которая выводит таблицу квадратов первых пяти целых нечетных чисел
Нажимая на кнопку «Задать вопрос», я даю согласие на обработку персональных данных
Щелчок 2023 | Прога Python. Уровень 1 (Массив, if в цикле, Простейшие задачи)
Задать вопрос
Задать вопрос
Турбо паскаль, цикл for.Написать программу которая выводит таблицу квадратов первых пяти целых нечетных чисел. ПЛИЗ ОЧЕНЬ НАДО*))))
- 04 May 2013
- Ответ оставил: Атрырччт36453
Program Square5NotEven;
Uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 9 do
if (i mod 2)<>0 then writeln(i,’ ‘,i*i );
readkey;
Нравится —> 0
- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: қазақ тiлi.
На сегодняшний день (05.07.2023) наш сайт содержит 91805 вопросов, по теме: қазақ тiлi. Возможно среди них вы найдете подходящий ответ на свой вопрос.
Нажимая на кнопку «Ответить на вопрос», я даю согласие на обработку персональных данных
Ответить на вопрос
Последние опубликованные вопросы
Источник: vseznanija.com
Турбо паскаль, цикл for. написать программу которая выводит таблицу квадратов первых пяти целых нечетных чисел. надо*
10 Смотреть ответы Добавь ответ +10 баллов
Ответы 10
Ответ разместил: melitatomashko
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
Program Square5NotEven;
Uses crt;
var i:integer;
begin
Ruby Enumerator::Lazy | Ленивые перечисления для оптимизации
clrscr;
for i:=1 to 9 do
if (i mod 2)<>0 then writeln(i,’ ‘,i*i );
readkey;
Удалить ответ +1 балл
Ответ подобран нейросетью
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
Удалить ответ +1 балл
Ответ подобран нейросетью
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
var start := ReadInteger(‘С какого числа начинаем? ‘);
for var i := start downto 1 do PrintLn(i*i);
Удалить ответ +1 балл
Ответ подобран нейросетью
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
program kvadrat;
var i, n: integer;
begin
writeln (‘Таблица квадратов’);
writeln (»);
writeln (‘ Число Квадрат’);
writeln (»);
i:= 1;
n:= 10;
for i:=1 to n do
begin
writeln (‘ ‘,i,’ ‘, sqr(i));
end;
writeln (»);
end.
Удалить ответ +1 балл
Ответ подобран нейросетью
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
Удалить ответ +1 балл
Ответ подобран нейросетью
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
var ch,i,j:integer;
begin
for i:=1 to 5 do
begin
if (i mod 2 <> 0 ) then
writeln(‘kvadrat ‘,i,’ = ‘,sqr(i));
end;
end.
выводит квадрат 1 = 1
Удалить ответ +1 балл
Ответ подобран нейросетью
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
var a:integer; k:integer;
begin
k:=0;
while k begin
write(‘a=’); read (a);
if (a mod 2=0) then
writeln(sqr(a));
k:=k+1;
end;
end.
Удалить ответ +1 балл
Ответ подобран нейросетью
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
Program z1; var i: integer; begin for i:=2 to 20 do if i mod 2=0 then writeln (i*2); end. Проверь, это тебе нужно?
Удалить ответ +1 балл
Ответ подобран нейросетью
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
var
x: integer;
y: integer;
i: integer; < счетчик циклов>
begin
writeln (‘Таблица квадратов’);
writeln(‘‘);
writeln(‘Число Квадрат’);
writeln(‘‘);
for i:=l to 10 do
begin
y:=x*x;
writeln (x:3,y:10);
x:=x+1;
end;
writeln(‘‘);
readln;
end.
Удалить ответ +1 балл
Ответ подобран нейросетью
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
Var
s, n: integer;
begin
Write(‘Введите натуральное число: ‘); Readln(n);
s := ((n + 1) * n) div 2; < сумма арифметической прогрессии >
Writeln(‘Сумма натуральных чисел от 1 до ‘, n, ‘ равна ‘, s)
end.
Результат выполнения программы:
Введите натуральное число: 10
Сумма натуральных чисел от 1 до 10 равна 55
begin
Writeln(‘Квадраты первых пяти нечетных натуральных чисел’);
i := 5 * 2 — 1;
while i > 0 do begin Writeln(i:2, sqr(i):5); i := i — 2 end
end.
Результат выполнения программы:
Квадраты первых пяти нечетных натуральных чисел
9 81
7 49
5 25
3 9
1 1
Источник: 0tvet.com