Напечать все четные трехзначные числа. В паскале!

56

Напечать все четные трехзначные числа. В паскале!

категория: информатика

ответить

в избранное

67

alexander-volodin

12 апреля 2023

for i: =1 to 999 doif i mod 2=0 thenwriteln (i);

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Другие вопросы по информатике

12 апреля 2023

Что означает слово прорубь какое проверочное слово

12 апреля 2023

Написать программу на Паскале: «найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел. Условие окончанияввода – ввод числа 0."

12 апреля 2023

ПАСКАЛЬ 1) В двумерном массиве 4 на 3 заменить все нулевые элементы на первый элемент матрицы. 2) Заменить все элементы главной диагоналина максимальный элемент той же строки

12 апреля 2023

СРОЧНО! ПРОГРАММА С ВЕТВЛЕНИЕМ! Составьте программу, которая по введенному вами k-число грибов, печатает фразу: «Мы нашли в лесу k грибов» причемсогласовывает окончание слова «гриб» с k.!

12 апреля 2023

Помогите составить юлок схему к программе Var a,b,c: real; Begin write ('Введите a,b,c: '); readln (a,b,c); if (a>b) and (b>c) then Begin a: =a*2; b: =b*2; c: =c*2; End else Begin a: =abs (a); b: =abs (b); c: =abs (c); End; writeln ('a=',a: 2:2,' b=',b: 2:2,' c=',c: 2:2); readln; End.

12 апреля 2023

Составьте для чертежника алгоритм рисования прямоугольника со сторонами параллельным осямкоординат (2; 1) (7; 5)

12 апреля 2023

Напишите программу, которая выводит номера билетов, чтобы они не повторялись

12 апреля 2023

Определите, что будет напечатано в результате работы следующей программы. Var s, k: integer; Begin s: =50; for k: =1 to 9 do s: =s — 3 write (s); End.

12 апреля 2023

Скольких команд ввода исходных данных достаточно для решения произвольного квадратногоуравнения?

Задайте свой вопрос

ПОПУЛЯРНОЕ

mishanya, 12 апреля 2023

Что означает слово прорубь какое проверочное слово?

koalv, 12 апреля 2023

Написать программу на Паскале: «найти номер первого максимального элемента во вводимой с клавиатуры последовательности…

kulikovey, 12 апреля 2023

ПАСКАЛЬ 1) В двумерном массиве 4 на 3 заменить все нулевые элементы на первый элемент матрицы

sianukvil, 12 апреля 2023

СРОЧНО! ПРОГРАММА С ВЕТВЛЕНИЕМ!

zev281, 12 апреля 2023

Помогите составить юлок схему к программе Var a,b,c: real; Begin write ('Введите a,b,c: '); readln (a,b,c); if

rooboo, 12 апреля 2023

Составьте для чертежника алгоритм рисования прямоугольника со сторонами параллельным осямкоординат (2; 1) (7; 5)

pavelp, 12 апреля 2023

Напишите программу, которая выводит номера билетов, чтобы они не повторялись

c4actbe, 12 апреля 2023

Определите, что будет напечатано в результате работы следующей программы

olegivaniloff, 12 апреля 2023

Скольких команд ввода исходных данных достаточно для решения произвольного квадратногоуравнения?

27400

14821

Английский язык

14216

Биология

7369

720

Экономика

18828

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

465

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...