Var sumsec : integer ; var hour, min, sec : integer ; l : integer ; begin writeln ('Введите суммарное кол - во секунд') ; readln (sumsec) ; l : = sumsec div 60 ; sec : = sumsec mod 60 ; hour : = l div?

Korpacheva 20 апр. 2020 г., 06:55:20

Var sumsec, hour, min, sec : integer ;

procedure p(sumsec : integer ; var hour, min, sec : integer) ;

var l : integer ;

begin

l : = sumsec div 60 ;

sec : = sumsec mod 60 ;

hour : = l div 60 ;

min : = l mod 60 ;

end ;

begin

writeln ('Введите суммарное кол - во секунд') ;

readln (sumsec) ;

p(sumsec, hour, min, sec) ;

writeln (sumsec, ' секунд - это') ;

writeln ( hour , ' час(а / ов) ', min , ' минут ' , sec , ' секунд ') ;

end.

Nastya2551 8 нояб. 2020 г., 03:34:06 | 10 - 11 классы

Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = ivar a : array [1?

Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = i

var a : array [1.

5] of integer ;

i, min, max, x : integer ;

begin

for i : = 1 to 5 do begin a[i] : = random(10) ; writeln(a[i]) ; end ;

max : = a[1] ;

min : = a[1] ;

for i : = i to 5 do begin

if a[i]> ; max then max : = a[i] ;

if a[i]< ; min then min : = a[i] ;

end ;

writeln('max = ', max) ;

writeln('min = ', min) ;

end.

Bagira17 2 мая 2020 г., 03:43:31 | 5 - 9 классы

Помогите плиииз))) Надо написать блок - схему на эту программу?

Помогите плиииз))) Надо написать блок - схему на эту программу.

Program a2 ; var a, b, c, min : real ; begin Writeln (‘Введите три числа’) ; readln (а, b, с) ; min : = а ; If b< ; min then min : = b ; if c< ; min then min : = c ; writeln (‘min = ' , min) ; end.

Roman0877 22 апр. 2020 г., 02:55:11 | 5 - 9 классы

Program naim4 ;var a, b, c, d, min : real ; begin ;writeln('введите 4 числа') ;readln ;min : = a ;if b < ; min then min : = b ;if c < ; min then min : = c ;if d < ; min then min : = d ;writeln('?

Program naim4 ;

var a, b, c, d, min : real ; begin ;

writeln('введите 4 числа') ;

readln ;

min : = a ;

if b < ; min then min : = b ;

if c < ; min then min : = c ;

if d < ; min then min : = d ;

writeln('минимальное ', min) ;

readln ;

end.

Нужно найти минимальное число из 4 данных.

Что не так?

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.

В чём ошибка?

Vlasova123 1 авг. 2020 г., 00:14:42 | 5 - 9 классы

Что будет выведено на экран в результате выполнения следующей программы, если ввести число x = 521?

Что будет выведено на экран в результате выполнения следующей программы, если ввести число x = 521?

Var x, c1, c2, c3, c4 : integer ; Begin writeln(“введите трехзначное число”) ; Readln(x) ; c1 : = x mod 10 ; c2 : = x div 10 ; c3 : = c2 mod 10 ; c4 : = x div 100 ; Writeln(c1, c2, c3, c4) ; End.

Кристинка13122002 12 янв. 2020 г., 13:54:25 | 5 - 9 классы

Найти сумму цифр четырехзначного числа Program nfff ; var ab, S, a, b : integer ; Begin WriteLn('найти сумму цифр четырехзначного числа') ; Write('Введите ab = ') ; ReadLn(ab) ; b : = ab mod 10 ; a : ?

Найти сумму цифр четырехзначного числа Program nfff ; var ab, S, a, b : integer ; Begin WriteLn('найти сумму цифр четырехзначного числа') ; Write('Введите ab = ') ; ReadLn(ab) ; b : = ab mod 10 ; a : = ab div 10 ; S : = a + b ; writeln('S = ', S) ; End.

Spasibo123 5 февр. 2020 г., 18:45:06 | 10 - 11 классы

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End?

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End.

Fylhsqre 23 февр. 2020 г., 18:27:31 | 5 - 9 классы

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

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

3. Найдите ошибки в программе и запишите исправленную программу в тетрадь : Program 3 funkciy ; Var x : y : integer Writeln (‘введите значение х’) ; Readln(х) ; Begin If x> ; 0 then y : = x ; else y : = x * x ; writeln(значение функции , y) ; end.

4. Дана программа на языке Паскаль : Program a2 ; Var a, b, c, min : real ; Begin Writeln (‘введите 3 числа’) ; Readln(a, b, c) ; min : = a ; if b.

Zaika220681 25 нояб. 2020 г., 06:38:19 | 10 - 11 классы

Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b>?

Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b> ; a then begin max : = c ; med : = b ; min : = a ; End ; if b> ; a> ; c then begin max : = b ; med : = a ; min : = c ; End ; if a> ; c> ; b then begin max : = a ; med : = c ; min : = b ; End ; writeln ('наибольшее число', max) ; writeln ('среднее число', med) ; writeln ('наименьшее число', min) ; End.

GioZam 1 дек. 2020 г., 11:19:33 | 10 - 11 классы

Задание :Ввести массив в данную программуvarn, i, a, min : integer ;beginreadln(n) ;min : = 30001 ;for i : = 1 to n dobeginreadln(a) ;if (a mod 10 = 4) and (a < min) thenmin : = a ;end ;writeln(min)en?

Задание :

Ввести массив в данную программу

var

n, i, a, min : integer ;

begin

readln(n) ;

min : = 30001 ;

for i : = 1 to n do

begin

readln(a) ;

if (a mod 10 = 4) and (a < min) then

min : = a ;

end ;

writeln(min)

end.