сервис вопросов и ответовОпределите значение переменной K после выполнения следующей программы a=-5; b=-12; c=0; d=7; k=0
10-11 класс|
|
если a<0 то k:=k+1
все
если b<0 то k:=K+1
все
если c≤0 то k:=k+1
все
если d<0 то k:=k+1
иначе k:=k+2
все
Nikos282
31 марта 2014 г., 20:00:53 (10 лет назад)
Tayusha
31 марта 2014 г., 20:47:45 (10 лет назад)
k = 5 ........................
а < 0? true; k + 1;
b < 0? true; k + 1;
c <= 0? true; k + 1;
d < 0? false; k + 2;
k = 5
Ответить
Другие вопросы из категории
В поселке 80 домов: деревянные, кирпичные и панельные. Сообщение о том, что покрасили деревянный дом, содержит 2 бита информации. Сколько деревянных, ки
рпичных и панельных домов в поселке, если панельных домов столько же, сколько кирпичных?
Ребят, помогите пожалуйста объяснить задачи!!!
В целочисленной
последовательности есть нулевые элементы. Создать массив из номеров этих
элементов.
Program
Om1;
Uses
crt;
Var
a :array
[1..100] of real;
i,n,j :
integer;
x :
array [1..100] of real;
Begin
clrscr;
write('n=');readln(n);
for i:=1
to n do
readln(a[i]);
j:=1;
for i:=1
to n do
if
a[i]=0 then
begin
x[j]:=i;
j:=j+1
end;
for i:=1
to j-1 do
write(x[i],' ');
End.
Дана последовательность
целых чисел а1, а2….аn.
Выяснить какое число встречается раньше, положительное или отрицательное.
Program
num2;
Uses
crt;
VAr
a :array
[1..100] of real;
i,n :
integer;
Begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1
to n do
begin
if
a[i]<>0 then
if
a[i]>0 then
begin
writeln('Положительное встречается раньше');
break
end else
begin
writeln('Отрицательное встречается раньше');
break
end;
end;
End.
Дана последовательность
действительных чисел а1, а2….аn. Выяснить будет ли она возрастающей.
Program
num4;
Uses
crt;
Var
a :
array [1..100] of real;
i, n, j
:integer;
Begin
clrscr;
write('n=');readln(n);
a[n+1]:=a[n]+1;
for i:=1
to n do
readln(a[i]);
j:=0;
i:=1;
while
i<n do
begin
if
a[i]<a[i+1] then
begin
j:=j+1;
i:=i+1
end
else
begin
writeln('Последовательность невозрастающая');
break
end;
end;
if i=n then writeln('Последовательность возрастающая');
End.
Найти самую большую цифру
целого числа.
Program
rar;
uses
crt;
var
n:longint;
b:byte;
Очень срочно! Помогите пожалуйста! Записать программу, которая на название фигуры (треугольник, квадрат, ромб, прямоугольник и т.п.) выводит
формулу, по которой вычисляется площадь этой фигуры. В программе использовать оператор CASE на языке Basic
Читайте также
1)Определите значение переменной c после выполнения следующего фрагмента программы:
a :=40 ;
b := 10;
a := - a / 2*b,;
if a > b then
c := b - a
else c := a - 2 * b
2)Определите значение переменной c после выполнения следующего фрагмента программы:
a := 5;
a := a + 6;
b := - a;
c := a - 2 * b
(PASCAL)
Определите значение переменной с после выполнения следующего фрагмента программы
s:=1;i:=1;
while i<5 do
begin
s:=s+i*(i+1);
i:=i+1;
end;
Прошу объяснить решение подобных программ на данном примере
Определите значение переменной b после выполнения следующего фрагмента программы, где а и b- вещественные (действительные) переменные :
а :=-5;
b :=5+7*а;
b :=b/2*f
А)65
В) -70
С) 75
D) -65
Определите значение переменной s после выполнения следующего фрагмента программы:
s:=0; i:=7;
while i > 1 do begin
s:= s + i div 2;
i:= i - 1;
end;
Определите значение переменной y после выполнения следующего фрагмента программы:
х:=25;
у:=20;
while x*y<0 do;
begin
x:=x-5;
y:=y+2;
end;
Вы находитесь на странице вопроса "Определите значение переменной K после выполнения следующей программы a=-5; b=-12; c=0; d=7; k=0", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.