Дана программа : program primer3 ; uses crt ; var x : integer ; begin clrscr ; readin (x) ; if x mod 2 = 0 then wtiteln('да') else wtiteln ('нет') При каком значении x будет получен ответ 'ДА'?

Olegon29 27 нояб. 2020 г., 12:52:39

При любом значении, которое делится на 2 без остатка.

Допустим 4.

Toluanchick2014 29 мар. 2020 г., 07:56:03 | 10 - 11 классы

Набрать в программе Pascal программу исправив ошибки : PROGRAM 123 ; USES CRT ; VAR A, S : INTEDGER ; BEGIN WRITELN ( 'ВВЕДИТЕ ДВА ЧИСЛА ') ; READ(Q, W) ; F : = Q / W ; WRITELN ( 'РЕЗУЛЬТАТ ' , F) ; R?

Набрать в программе Pascal программу исправив ошибки : PROGRAM 123 ; USES CRT ; VAR A, S : INTEDGER ; BEGIN WRITELN ( 'ВВЕДИТЕ ДВА ЧИСЛА ') ; READ(Q, W) ; F : = Q / W ; WRITELN ( 'РЕЗУЛЬТАТ ' , F) ; READLN ; END.

Timik06 14 мар. 2020 г., 21:28:04 | 5 - 9 классы

Program prim1 ;uses CRT ;vara, i : integer ;beginread(a) ;i : = 1 ;while i< ; 10 dobegini : = i + 1 ;write(a) ;end ;end?

Program prim1 ;

uses CRT ;

var

a, i : integer ;

begin

read(a) ;

i : = 1 ;

while i< ; 10 do

begin

i : = i + 1 ;

write(a) ;

end ;

end.

Это программа для того чтобы вывести 10 одинаковых чисел на экран.

Помогите пожалуйста переделать так, чтобы можно было вывести слово ПРИВЕТ 10 раз.

Программа pascalABC.

Nastenka1997 9 авг. 2020 г., 08:01:22 | 5 - 9 классы

Program mar ; uses crt ; var F, k : integer ; S : real ; begin clrscr ; F : = 1 ; S : = 1 ; for k : = 1 to 3 do begin F : = F * k ; S : = S * (2 * F) / (k * k * k * k + k) ; writeln('k = ', k ) ; read?

Program mar ; uses crt ; var F, k : integer ; S : real ; begin clrscr ; F : = 1 ; S : = 1 ; for k : = 1 to 3 do begin F : = F * k ; S : = S * (2 * F) / (k * k * k * k + k) ; writeln('k = ', k ) ; readkey ; end.

Найдите ошибку, пожалуйста, программа не идет.

Irinakirikovam 24 мая 2020 г., 05:37:28 | 5 - 9 классы

Program yura ; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2 = 0 then writeln(x * x + (sqrt2)) else writeln(x * x * x + x) end?

Program yura ; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2 = 0 then writeln(x * x + (sqrt2)) else writeln(x * x * x + x) end.

В чём ошибка?

Sleepwalkeeer 30 окт. 2020 г., 19:23:01 | 10 - 11 классы

Программирование?

Программирование.

Даны три вещественных числа a, b, c.

Существует ли треугольник со сторонами a, b, c?

Program dz1 ; uses crt ; var a, b, c : integer ; begin writeln('введите три числа : ') ; readln(a, b, c) а дальше не знаю помогите пожалуйста!

).

Gameplayermcpe 24 апр. 2020 г., 01:32:12 | 5 - 9 классы

Какое значение примет переменная Х после выполнения программы, если его введенное значение с клавиатуры 121?

Какое значение примет переменная Х после выполнения программы, если его введенное значение с клавиатуры 121?

Program z7 ;

var X : integer ;

begin

writeln('введите Х') ;

if X > ; 100 then X : = X - 20 ;

writeln('X = ', X) ;

end.

2. Какой результат получится после выполнения программы, если a = 5 и b = 2?

Program z8 ;

var a, b, c : integer ;

begin

readln(a, b) ;

c : = sqr(a + b) ;

if c> ; 59 then a : = a + 2

else c : = c + 2 ;

writeln ('результат c = ', c) ;

end.

1йож 8 мар. 2020 г., 00:41:04 | 10 - 11 классы

Срочно требуется помощь?

Срочно требуется помощь!

Нужно перевести программу из Pascal в VBA / Program num2 ; Uses crt ; Var a : array [1.

100] of integer ; i, k, n, s : integer ; Begin clrscr ; s : = 0 ; write('K = ') ; readln(k) ; write('N = ') ; readln(n) ; for i : = 1 to n do readln(a[i]) ; for i : = 1 to n do if (a[i] MOD k) = 0 then s : = s + a[i] ; writeln('S = ', s) ; End.

Program num1 ; Uses crt ; Var i, E : integer ; Begin clrscr ; i : = 0 ; write('E = ') ; readln(E) ; while i begin i : = i + sqrt(2) ; end ; writeln('I = ', i) ; End.

Program num3 ; Uses crt ; Var A, T : array [1.

100, 1.

100] of integer ; i, j, x : integer ; Begin clrscr ; for i : = 1 to 100 do for j : = 1 to 100 do A[i, j] : = random(10) ; for i : = 1 to 100 do for j : = i + 1 to 100 do T[i, j] : = A[i, j] ; for i : = 1 to 100 do for j : = 1 to 100 do begin x : = 0, 5 * ((A[i, j] ^ 2) + (A[i, j] ^ T[i, j])) ; writeln('X[', i, ', ', j, '] = ', x) ; end ; End.

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;

111worni111wormi 5 нояб. 2020 г., 04:49:38 | 5 - 9 классы

Что не так в программе в конце должен вывести какое число больше program primer ; var a, b : integer ; wrateln : ; readln (a, b) ; if a> ; b then writeln(a) else writeln (b) ; end?

Что не так в программе в конце должен вывести какое число больше program primer ; var a, b : integer ; wrateln : ; readln (a, b) ; if a> ; b then writeln(a) else writeln (b) ; end.

Ряжка 25 дек. 2020 г., 18:21:48 | 5 - 9 классы

Помогите пожалуйста, cрочно?

Помогите пожалуйста, cрочно!

Составить блок - схему.

Program primer6 ;

uses crt ;

x : integer ;

begin

clrscr ;

readln(x) ;

if x mod 2 = 0 then writeln ('да')

else writeln ('нет')

end.