Информатика | 10 - 11 классы
Написать программу, которая выводит изображенный ниже узор.
Turbo Pascal.
Напишите программы в Turbo Pascal?
Напишите программы в Turbo Pascal.
Написать программу на языке Pascal?
Написать программу на языке Pascal.
Написать программу, которая выводит 10 одинаковых чисел.
Напишите программу в Turbo Pascal?
Напишите программу в Turbo Pascal.
Спасибо!
Написать программу в Turbo pascal Найти 2 максимума из любой последовательности чисел?
Написать программу в Turbo pascal Найти 2 максимума из любой последовательности чисел.
Написать программу вычисления суммы натуральных чисел от 1 до nTurbo Pascal?
Написать программу вычисления суммы натуральных чисел от 1 до n
Turbo Pascal.
Напишите программу которая запрашивает значение двух переменных и выводит их сумму ?
Напишите программу которая запрашивает значение двух переменных и выводит их сумму .
На паскаль Pascal Turbo.
Структура программы на языке turbo pascal?
Структура программы на языке turbo pascal.
Turbo Pascal?
Turbo Pascal.
Составить программу.
Вычислить значение функции :
Написать программу вычисления значений функции в заданных точках (Turbo Pascal) Очень нужно?
Написать программу вычисления значений функции в заданных точках (Turbo Pascal) Очень нужно.
Написать программу вычисления значений функции в заданных точках (Turbo Pascal) Очень нужно?
Написать программу вычисления значений функции в заданных точках (Turbo Pascal) Очень нужно.
На этой странице сайта вы найдете ответы на вопрос Написать программу, которая выводит изображенный ниже узор?, относящийся к категории Информатика. Сложность вопроса соответствует базовым знаниям учеников 10 - 11 классов. Для получения дополнительной информации найдите другие вопросы, относящимися к данной тематике, с помощью поисковой системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям. Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы помогут найти нужную информацию.
Uses graph ;
const
R = 100 ;
var
drive, mode : integer ;
path : string ;
x, y, i, j : integer ;
begin
drive : = detect ;
InitGraph(Drive, Mode, Path) ;
x : = 400 ;
for i : = 1 to 5 do begin y : = 100 ; x : = x + 150 ; for j : = 1 to 4 do begin circle(x, y, R) ; y : = y + 150 ; end ; end ;
end.