А - 03
Б - 07
В - 11
Г - 112
Д - 132
Е - 179
Ж - 221
З - 02
И - 75
Й - 83
К = 256
Л - 773
и т.д.
С числами так же, только, например, 1 - это А, 2 - это Б, и так до 9.
В буквах - значение чисел не должно совпадать, как и в числах.
//Pascal ABC.NET v3.1 сборка 1172
Const
n=5;
Var
ar1,ar2:array[1..n] of integer;
i,k,m:integer;
begin
writeln('Reading array A:');
for i:=1 to n do
readln(ar1[i]);
writeln('Reading array B:');
for i:=1 to n do
readln(ar2[i]);
writeln('Res:');
for i:=1 to n do
if ar1[i]>5 then
begin
writeln(i);
break;
end;
for i:=1 to n do
if odd(ar2[i]) then
begin
writeln(ar2[i]);
break;
end;
end.
Пример ввода:
Array A:
1
2
4
5
9
Array B:
1
4
7
9
13
Пример вывода:
Res:
5
1
#include<iostream>
using namespace std;
1)int main() {
for (int i = 102; i <200; i+=3)
cout<<i<<' ';
return 0;
}
2) #include <string>
int main(){
cout <<"Введите название романа и фамилию его автра";
string s;
getline(cin,s);
return 0;
}
3)int main(){
double a=0.0;
for (double i = 3.0; i < 12.0: i+=1.0)
ans += (i-1)/i;
cout<<ans;
return 0;
первые две строчки без номера копируешь для каждого кода
если есть ошибки компиляции - сорян, пишу с телефона. если что пиши в сообщения, отвечу
<span>a = 40
b = 6
b = a div b+b = 40 div 6+6 = 6+6 = 12
a = b+a = 12+40 = 52</span>