Решение для Pascal ABCuses GraphABC ;vara : integer ;beginreadln(a) ;moveto(a, 1) ;circle(a + a div 2, 1, a div 4) ;lineto(a + a div 4, 1) ;moveto(a + (a div 4) * 3, 1) ;lineto (2 * a, 1) ;lineto(2 * ?

Alenas04 14 февр. 2022 г., 00:41:21

1. Подключается модуль, отвечающий за графику

2.

Начало объявления переменных

3, Объявляется переменная "а", с числовым типом

4.

Начало программы

5.

Необходимо ввести значение переменной "а"

6.

Перемещает указатель (начальную точку) на координаты а, 1 где а - координата по оси Х, 1 - координата по оси Y

7.

Рисует окружность с центром в точке x = а + а div 2, y = 1 где div целочисленное деление.

То есть если а = 5, то 5 + 5 div 2 будет равно 5.

И третий параметр это радиус, то есть радиус равен а div 4.

8. Функция linto(x, y) рисует прямую линию в точку с координатами x и y.

Причем рисует из точки, в которой указатель был до этого.

То есть в данном случае из точки в центре окружности.

Я думаю дальше можно догадаться, так как все функции описал.

Программа написана на языке Pascal и она рисует что - то.

Ilyasqwep 13 янв. 2022 г., 01:12:23 | 5 - 9 классы

Программа для перевода сантиметров в метры с помощью div и mod (Паскаль)?

Программа для перевода сантиметров в метры с помощью div и mod (Паскаль).

Заранее спасибо!

Bdot 4 февр. 2022 г., 06:35:56 | 10 - 11 классы

65) (Д?

65) (Д.

Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы :

var i, k : integer ;

function f(x : integer) : integer ;

var m : integer ;

begin

if x < 10 then f : = x

else begin

m : = f(x div 10) ;

if m < x mod 10 then

f : = x mod 10

else f : = m ;

end ;

end ;

begin

k : = 0 ;

for i : = 1000 to 9999 do

if f(i mod 100) = 1 then

if f(i div 100) = f(i mod 100) then

k : = k + 1 ;

writeln(k) ;

end.

Объясните, пожалуйста.

Элькаспросит 31 янв. 2022 г., 03:16:43 | 5 - 9 классы

Определите что будет напечатано в результате выполнения алкоритма, записанного на паскалеVar a, b : integer ;begina : = 1333 ;b : = (a div 100) * 13 + 5 :a : = (10 * b - a) mod 100 ;writeln (`a = `, a?

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

Var a, b : integer ;

begin

a : = 1333 ;

b : = (a div 100) * 13 + 5 :

a : = (10 * b - a) mod 100 ;

writeln (`a = `, a) ;

writeln (`b = `, b) ;

end.

Mi616 27 февр. 2022 г., 04:27:02 | 10 - 11 классы

Помогите пожалуйста123 mod 10 + 123 div 10 mod 10 + 123 div 10 div 10 mod 10 =?

Помогите пожалуйста

123 mod 10 + 123 div 10 mod 10 + 123 div 10 div 10 mod 10 =.

Froggy2005 25 февр. 2022 г., 23:54:15 | 5 - 9 классы

Какое число необходимо подать на вход программе, чтобы было выведено число 6387?

Какое число необходимо подать на вход программе, чтобы было выведено число 6387?

Var n : integer ;

begin

readln(n) ;

writeln(n div 100 mod 10 * 1000 + n div 10 mod 10 * 100 + n mod 10 * 10 + n div 1000) ;

end.

Millan11 20 мар. 2022 г., 06:32:45 | 10 - 11 классы

Как исправить?

Как исправить?

23242.

Pas(18) : Ошибка времени выполнения : Входная строка имела неверный формат.

Вот код :

var f1 : text ; b, c, i : integer ; d : real ;

begin randomize ; assign(f1, '6161.

Txt') ; rewrite(f1) ; for i : = 1 to 100 do begin c : = random(1001) ; write(f1, c, ' ') end ; close(f1) ; reset(f1) ; while not EOln(f1) do begin read(f1, d) ; c : = round(d) ; if (c div 3 = 0) and (c div 10 div 10 div 10 = 0) and (c = 0) then b : = c ; end ; close(f1) ; append(f1) ; writeln(f1) ; writeln(f1) ; if b 0 then writeln(f1, 'Число ', b, ' является трехзначным и нацело делится на 3') else writeln(f1, 'В файле нет трехзначных чисел, которые нацело делятся на 3') ; close(f1) ;

end.

Илья111111333 16 апр. 2022 г., 19:14:29 | 10 - 11 классы

Вычислить значения выражений : 100 div 10 mod 3?

Вычислить значения выражений : 100 div 10 mod 3.

Севетик 24 февр. 2022 г., 09:06:12 | 5 - 9 классы

Какая из переменных может не является целой ?

Какая из переменных может не является целой ?

A : = 2 ;

b : = 4 div 7 ;

c : = - 25 ;

d : = d / 6 ;

Наатт 18 янв. 2022 г., 09:13:42 | 5 - 9 классы

Перевести из Pascal в Сvar a, b : longint ; n, m : byte ;begin readln(a) ; readln(n) ; b : = 0 ; while a > 0 do begin m : = a mod 10 ; if m n then b : = b * 10 + m ; a : = a div 10 ; end ; while b > 0?

Перевести из Pascal в С

var a, b : longint ; n, m : byte ;

begin readln(a) ; readln(n) ; b : = 0 ; while a > 0 do begin m : = a mod 10 ; if m n then b : = b * 10 + m ; a : = a div 10 ; end ; while b > 0 do begin a : = a * 10 + b mod 10 ; b : = b div 10 ; end ; writeln(a) ;

end.

Max480 22 янв. 2022 г., 17:14:37 | 5 - 9 классы

Ввести слово?

Ввести слово.

Определить является ли оно палиндромом.

(Используя div)

Pascal Turbo.