Program vvv2;
Var A, B, C, D: integer;
Begin
A:=7;
B:=2*A-3;
If B>A Then C:=B-A Else D:=A-B;
Writeln (`C=`, C); Writeln (`D=`, D);
End.
2)Какое значение примет переменная Х после выполнения оператора Х:= 15 div 4:
3)Укажите верные записи условного оператора if.
1)if
else оператор 1
then оператор 2;
2)if
then оператор 1
else оператор 2;
3)if
then оператор 1;
4)if
then оператор 1
4)Укажите формы ветвления в разветвляющихся алгоритмах.
1)неполная форма ветвления
2)полная форма ветвления форма ветвления
4)пустая форма ветвления
5)Укажите все строки, в которых условный оператор на языке Pascal записан верно.
1)if x>=0
then
begin
y:=sqrt(x);
write(y);
end
else write (‘нельзя вычислить’);
2)if x=0
then
y:=sqrt(x);
write(y)
else write (‘нет ответа’);
3)if х=у
pascal Char присваивание значений переменным и вывод на экран, символьный тип данных
then z:=1
else z:=x*y;
6)Запиши условный оператор на языке Pascal, заполняя пропуски нужными словами (слова писать маленькими буквами):
7)Укажите условие выбора чисел, кратных 5 и не кратных 10:
1)нет правильного ответа
2)(X mod 5<>0) or (X mod 10=0);
3)(X mod 5=0) and (X mod 10<>0);
4)(X mod 5=0) and (X mod 10=0);
Источник: vseznaniya.com
с маленьким тестом по информатике(Паскаль) очень нужно Какие значения примут переменные C и D в результате выполнения программы:
Program vvv2;
Var A, B, C, D: integer;
Begin
A:=7;
B:=2*A-3;
If B>A Then C:=B-A Else D:=A-B;
Writeln (`C=`, C); Writeln (`D=`, D);
End.
2)Какое значение примет переменная Х после выполнения оператора Х:= 15 div 4:
3)Укажите верные записи условного оператора if.
1)if
else оператор 1
then оператор 2;
2)if
then оператор 1
else оператор 2;
3)if
then оператор 1;
4)if
then оператор 1
4)Укажите формы ветвления в разветвляющихся алгоритмах.
1)неполная форма ветвления
2)полная форма ветвления форма ветвления
4)пустая форма ветвления
5)Укажите все строки, в которых условный оператор на языке Pascal записан верно.
1)if x>=0
then
begin
y:=sqrt(x);
write(y);
end
else write (‘нельзя вычислить’);
2)if x=0
then
y:=sqrt(x);
write(y)
else write (‘нет ответа’);
3)if х=у
then z:=1
else z:=x*y;
6)Запиши условный оператор на языке Pascal, заполняя пропуски нужными словами (слова писать маленькими буквами):
7)Укажите условие выбора чисел, кратных 5 и не кратных 10:
1)нет правильного ответа
2)(X mod 5<>0) or (X mod 10=0);
3)(X mod 5=0) and (X mod 10<>0);
Уроки программирования на языке Pascal. Разветвляющиеся алгоритмы. Обмен значений переменных.
4)(X mod 5=0) and (X mod 10=0);
2 Смотреть ответы Добавь ответ +10 баллов
Источник: 0tvet.com
Какие значения примут переменные C и D в результате выполнения программы:
var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.
Ответ разместил: Гость
var i, count : byte;
for i: = 10 to 99 do
if i mod 2 = 0 then count : = count+1;
var i, count : byte;
for i: = 10 to 99 do
if (i div 10) mod 2 = 0 then count : = count+1;
for i: = 10 to 99 do
if (i mod 3 = 0) and (i mod 4 = 0) then write(i);
for i: = 100 to 990 do begin
b: =(i div 10) mod 10;
if (a=b) and (b=c) then write(i);
* — тип byte может принимать значения от 0 до 255, а тип integer — от -32767 до 32768.
прим: все что выделено жирным, это код программы. все остальное — это пояснение и вставлять их в программу не нужно.
Источник: vse-znaniya.com