6
Перепишите программу на Паскале, исправив ошибки:
Program massiv;
Var a:array(-10..10) of integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
2 ответа:
0
0
A:array[-10..10] of real;i:integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
0
0
Массив с другими скобкамиArray[-10..10]
Читайте также
Program qq;
var a:integer;
s,R1,R2:real;
begin
readln(a);
s:=(sqr(a)*sqrt(3))/4;
R1:=(2*S)/(3*a);
R2:=(Sqr(a)*a)/(4*S);
writeln(‘s=’,s,’ r1=’,r1,’ r2=’,r2);
<span>end.</span>
====================================
P.S. Не уверен насчёт наличия функции <span>power(x: real; y: integer): real в Borland TB, посему вот, на всякий, мне времени не жалко, раз уж взялся х)
function power(x: real; y: integer): real;
var
i: integer;
d: real := 1;
begin
for i := 1 to y do
d := d * x;
result := d;
<span>end;</span></span>
<span>n= int(input(‘n = ‘))
s = su = <span>0
</span>if n > 0:
for i in range(0,n+1,2):
print(‘чётны номери’,i)
s += i
print(‘Сума’,s)
for x in range(1,n+1,2):
print(‘нечётными номери ‘,x)
su += x
print(‘Сума’,su)
</span>
Не стал сильно напрягаться и накидал все в std::basic_string<char>.
Компилировать с -std=c++14 (или выше).
#include <iostream>
#include <algorithm>
#include <numeric>
#include <iterator>
int main()
{
std::string X;//предполагается, что X — положительное целое.
std::cin >> X;
std::cout << «A) «;
for(auto& i : X)
std::cout << i << » «;
std::cout << std::endl;
std::cout << «Б) » << std::boolalpha << (*X.crbegin() == *X.crbegin()) << std::endl;
std::cout << «В) » << std::boolalpha << std::is_sorted(X.cbegin(), X.cend()) << std::endl;
std::cout << «Г) » << *std::max_element(X.begin(), X.end(), [](const auto& var1, const auto& var2)
{
return ((static_cast<int>(var1) — ‘0’) < (static_cast<int>(var2) — ‘0’));
}) << std::endl;
{
int temp(std::accumulate(X.begin(), X.end(), 0, [](auto& var1, auto& var2)
{
return var1 + (static_cast<int>(var2) — ‘0’);
}));
std::cout << «Д) » << temp << std::endl;
std::cout << «Е) » << std::boolalpha << ((temp % 2 == 0) && (temp % 3 == 0))
<< std::endl;
#define _BEGIN 10 // начало диапазона
#define _END 100 // конец диапазона (_BEGIN; _END)
std::cout << «Ж) » <<std::boolalpha << (temp > _BEGIN && temp < _END)
<< std::endl;
}
std::cout << «З) «;
std::copy(X.crbegin(), X.crend(),
std::ostream_iterator<const char>(std::cout, «»));
std::cout << std::endl;
return 0;
}
1) log(2)128 = 7 бит (2^7 = 128)
2) Для хранения одного символа необходимо log(2)32 = 5 бит. Объем сообщения = 60*5 = 300 бит
Перепишите программу на Паскале, исправив ошибки :
Program massiv ;
Var a : array( — 10.
10) of integer ;
Begin For i : = 1 to 20 Do Read(a[i]) ; For i : = 1 to 20 Do a[i] : = a[i] / 10 ;
For i : = 1 to 20 Do Write(a[i])
End.
Вы открыли страницу вопроса Перепишите программу на Паскале, исправив ошибки :Program massiv ;Var a : array( — 10?. Он относится к категории
Информатика. Уровень сложности вопроса – для учащихся 10 — 11 классов.
Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие
ответы по интересующей теме. Чтобы получить наиболее развернутый ответ,
можно просмотреть другие, похожие вопросы в категории Информатика,
воспользовавшись поисковой системой, или ознакомиться с ответами других
пользователей. Для расширения границ поиска создайте новый вопрос, используя
ключевые слова. Введите его в строку, нажав кнопку вверху.
Ответ оставил Гость
Var
a: array[-10..10] of real;
i: integer;
begin
for i := -10 to 10 do begin
Read(a[i]);
a[i] := a[i] / 10;
Write(a[i]+ );
end;
end.
Оцени ответ
0 голосов
Перепишите программу на Паскале, исправив ошибки:
Program massiv;
Var a:array(-10..10) of integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
спросил
11 Март, 18
от
Rud111_zn
(85 баллов)
в категории Информатика
2 Ответы
0 голосов
ответил
11 Март, 18
от
PsyhoAssasin_zn
Одаренный
(2.4k баллов)
Лучший ответ
Program massiv;
Var a:array[-10..10] of integer;
i:integer;
Begin
For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:= round(a[i]/10);
Write(a[i]);
end;
End.
0 голосов
ответил
11 Март, 18
от
kkazhura_zn
Начинающий
(388 баллов)
Program massiv;
Var a:array[1..20] of real;
i:byte;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i]:4)
End.
0 голосов
Перепишите программу на Паскале, исправив ошибки:
Program massiv;
Var a:array(-10..10) of integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
Информатика
Rud111_zn
(85 баллов)
11 Март, 18
Дано ответов: 2
0 голосов
Правильный ответ
Program massiv;
Var a:array[-10..10] of integer;
i:integer;
Begin
For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:= round(a[i]/10);
Write(a[i]);
end;
End.
PsyhoAssasin_zn
Одаренный
(2.4k баллов)
11 Март, 18
0 голосов
Program massiv;
Var a:array[1..20] of real;
i:byte;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i]:4)
End.
kkazhura_zn
Начинающий
(388 баллов)
11 Март, 18