Помогите, пожалуйста, выполнить задания, связанные с Turbo Pascal:
5-9 класс
|
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)
1. 11
2a 35.8125
2b 613
Другие вопросы из категории
но были применены операции 1-9, представленные в таблице (см. вложения). Заполните таблицу, отразив в ней результаты выполнения каждой операции. Считайте, что в буфере обмена может находится один фрагмент. (запишите во вложениях)и отправьте мне
[0;15)
[0;15]
[-15; 15]
[10;20)
[50;100)
[-35; 65)
1.2М, равном: 14; 12; 10; 8; 16.
Читайте также
в результате работы следующего фрагмента программы:
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
в результате работы следующего фрагмента программы:
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
значения выражений?
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 решить на языке программирования, используя математические функции.
второе "повідомлення".
помогите пожалуйста :)