Тема: «Операторы присваивания, ввода и вывода»1. Какие из следующих операторов ввода записаны неверно? Объясните свой ответ.а)- INPUT Xб)- INPUT “X =”; Xв)- INPUT “X =”г)- INPUT “X, Y”; X , Yд)- INPUT “X, Y”; Xе)- INPUT “X =” ; X , “Y =” ; Y 2. Найдите ошибки в следующих фрагментах программ:а) А = 5 В = 2 * А PRINT A : B PRINT “B =” ; 2 * A PRINT конецб) Х = 7 2 * Х = Y PRINT ‘Y =’ ; X ^ 2 PRINT Y + 33. Объясните назначение следующей программы:INPUT “A =” ; AINPUT “B =” ; BA = A + BB = A – BA = A – BPRINT “A =”; A ; “B =” ; B4. Покажите на бумаге, что будет выведено на экран в результате работы следующего фрагмента программы: X = 2 Y = 3 PRINT “X =” ; X , “Y =” ; Y X = Y Y = X PRINT X , Y , 35. Что будет выведено на экран в результате работы следующего фрагмента программы: A = 10 : B = 6 A = (A + B) / 2 B = (A + B) / 2 PRINT “A =” ; A , “B =” ; B A = (A + B) / 2 PRINT : PRINT A , B A = B : B = A PRINT A , B
Ответы
program z1;
var t: integer;
begin
write('С начала суток секунд t = ');
readln(t);
writeln('Это составляет ',t div 3600,' часов ', t mod 3600 div 60,' минут ',t mod 3600 mod 60,' секунд')
end.
Объяснение:
div - целочисленное деление
mod - остаток от целочисленного деления
1 мин = 60 сек
1 час = 60 мин = 3600 сек
t div 3600 - сколько целых часов
t mod 3600 - сколько секунд осталось не считая целых часов
t mod 3600 div 60 - сколько целых минут
t mod 3600 mod 60 - сколько секунд осталось не считая целых часов и целых минут
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Який вигляд має команда циклу в Python?
Автор: zolotayaoxana1982
Сколько кодов можно составить из 7 бит
Автор: kapral1812
Скласти програму переміщення точки горизонтально по екрану Паскаль
Автор: baranovaas
i,k,N : Integer;
Begin
For i:=0 to 6 do m[i]:=0;
Readln(N);
k:=6;
While N>0 do
Begin
If N>=Power(2,k) then
Begin
N:=N-Trunc(Power(2,k));
Inc(m[k]);
end else Dec(k);
end;
For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.');
end.
Еще вариант:
Const
NN = 7;
money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
i,k,N : Integer;
Begin
For i:=1 to NN do m[i]:=0;
Readln(N);
k:=NN;
While N>0 do
Begin
If N>=money[k] then
Begin
N:=N-money[k];
Inc(m[k]);
end else Dec(k);
end;
For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.');
end.