Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Помогите, пожалуйста, выполнит задания, связанные с Turbo Pascal: 1) Определить, что будет напечатано

5-9 класс

в результате работы следующего фрагмента программы:

var k,s:integer;

begin

s:=0;

k:=1;

while k<11 do begin

s:=s+k;

k:=K+1;

end;

write(s);

end.

1.1 Запишите этот же фрагмент с помощью оператора Repeat...until

2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:

for n:=1 to 100 do

A[n]:=n-10;

for n:=1 to 100 do

B[n]:=A[n]*n;

Сколько элементов массива B будут иметь положительные значения?

а)10 б)50 в)90 г)100

Sasha3095 20 авг. 2014 г., 15:39:00 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
катя129припять
20 авг. 2014 г., 16:39:38 (9 лет назад)

1. Программа суммирует числа от 1 до 10, следовательно в ответе будет сумма:

1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 = 55.

1.1.

var k,s:integer;

begin

s:=0;

k:=1;

repeat

s:=s+k;

k:=K+1;

until k >10;

write(s);

end.

2. в первом цикле

for n:=1 to 100 do

     A[n]:=n-10;

вычисляются элементы массива А по формуле A[n]:=n-10, первые 10 из них будут отрицательные.

во втором цикле

for n:=1 to 100 do

     B[n]:=A[n]*n;

вычисляются элементы массива В по формуле B[n]:=A[n]*n, а т.к. первые 10 элементов массива А отрицательные числа, то и 10 первых элементов массива В будут отрицательными, а т.к. в массиве В 100 элементов, то положительных будет 90.

Ответить

Другие вопросы из категории

имеются два файла одинакового размера элементами которого являются

отдельные символы. Переписать с сохранением порядка следования элементы
первого файла во второй а элементы второго файла в первый. использовать
вспомогательный файл. (написать в паскале надо программу)


переведите число 1025

в двоичной системе

помогите ответить на вопросы пожалуйста буду очень благодарна:* 1)сколько цветов будет содержать палитра,если каждый базовый цвет кодировать

двумя битами?

2)что такое электронные словари?

3)какие дополнительные проблемы возникают при переводе текстов?

4)что отличает систему перевода текста от электронного словаря?

5)почему отсканированный текст нельзя сразу обрабатывать текстовым редактором?

6)что такое распознавание текста?

Читайте также

Помогите, пожалуйста, выполнит задания, связанные с Turbo Pascal: 1) Определить, что будет напечатано

в результате работы следующего фрагмента программы:

var k,s:integer;

begin

s:=0;

k:=1;

while k<11 do begin

s:=s+k;

k:=K+1;

end;

write(s);

end.

1.1 Запишите этот же фрагмент с помощью оператора Repeat...until

2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:

for n:=1 to 100 do

A[n]:=n-10;

for n:=1 to 100 do

B[n]:=A[n]*n;

Сколько элементов массива B будут иметь положительные значения?

а)10 б)50 в)90 г)100

Помогите, пожалуйста, выполнить задания, связанные с Turbo Pascal:


1. Сколько раз выполнится тело цикла и какие значения будут

присвоены переменной I?

I:=1;

While I<=10 do

I:=I+1;

2. Что появится на экране в результате работы этих программ?

а) Program primer1;

Var X:real; I:integer;

Begin I:=1; X:=0;

While I<=5 do begin

X:=X/2+I*I;

I:=I+1;

End;

Write(X);

End.

b) Program primer2;

Var X,I,N:integer;

Begin

Write ('введите число');

Readln(X);

I:=1;

While I<=X do begin

If X mod I=0 then N:=N+1;

I:=I+1;

End;

Write(N,I);

End.

(если X=12)

Выполнить задания, связанные с Turbo Pascal: 1) Какой оператор позволяет менять значения переменных и вычислять

значения выражений?

2) Выполнить алгоритм при x=345:

Начало

ввод x

a=x div 100

b=x div 10 mod 10

c=(a+b)/2

вывод a

вывод b

вывод c

конец

3) Что появится на экране после выполнения фрагмента программы:

a:=7;

b:=5;

a:=a-b;

Writeln(b-a*2);

Writeln('a=',a,'b=',b);

4) Дана сторона квадрата, найти его периметр.

5) Дано трёхзначное число. В нём зачеркнули последнюю справа цифру и приписали её в начале. Найти полученное число.

*Задачи 4 и 5 решить на языке программирования, используя математические функции.



Вы находитесь на странице вопроса "Помогите, пожалуйста, выполнит задания, связанные с Turbo Pascal: 1) Определить, что будет напечатано", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.