Сделал расчёт и суммы цифр в обоих числах, и сумму цифр первого плюс второе число. Ненужное удалите уж.
Подсчёт суммы цифр сделал независимым от длины числа (хоть сколькозначные вводите, вплоть до максимального целого в Кумире).
алг
нач
цел а,б,н,ас=0,бс=0
лит ат,бт
вывод 'введите целое трёхзначное число: '
ввод а
вывод 'введите целое четырёхзначное число: '
ввод б
ат := цел_в_лит(а)
нц для н от 1 до длин(ат)
ас := ас + Цел(ат[н],0)
кц
вывод 'сумма цифр трёхзначного= ', ас, нс
бт := цел_в_лит(б)
нц для н от 1 до длин(бт)
бс := бс + Цел(бт[н],0)
кц
вывод 'сумма цифр четырёхзначного= ', бс, нс
вывод 'сумма цифр трёхзначного плюс четырёхзначное число= ', ас+б
кон
Убрала несколько блоков, т.к. считаю их лишними
Здравствуйте! В этом сочинении я расскажу, почему хочу поступить на факультет информатики.
Как нетрудно было догадаться, основной причиной такого выбора стало то, что мое будущее я планирую связать с программированием. Еще со школы я решил, что хочу работать в этой сфере.
Вот несколько фактов, которые практически окончательно убедили меня, что это профессия мне подходит.
Во-первых, программист никогда не останется без работы. Круг его деятельности невообразимо широк. Он нужен везде, на любом современном производстве.
Во-вторых, у программистов достойная заработная плата. Главная причина такого расклада - высокая востребованность представителей данной профессии на производстве. Также, причиной высокой оплаты труда программиста является то, что продукция, в которой он заинтересован, дает большую прибыль: она либо массово покупается, либо дорого стоит, либо и то и другое сразу.
Как видите, мой выбор основан не на каких то пустяках, а на реальной заинтересованности в ней. Ведь - главное, это чтобы работа была тебе по душе!
1.
Program num1;
Uses crt;
Var
a :array [1..100] of integer;
i,k,n, s : integer;
Begin
clrscr;
s:=0;
write('K=');readln(k);
write('N=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if (a[i] MOD k)=0 then s:=s+a[i];
writeln('S=',s);
End.
2.
Program num2;
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.
3.
Program num3;
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.
4.
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.
Ответ:
На фото мало что видно, но я попытаюсь помочь.
Как математически это представить?
1)
Точка должна быть ниже линии у=(непонятка1) горизонтальная линия
2)
Точка должна быть левее линии х=(непонятка2) вертикальная линия
3)
Точка должна быть выше линии у=(непонятка3 зависящая от х) накладная линия
По программистски условие выглядит так:
If у<(непонятка1) and x<(непонятка2) and y>(непонятка3 зависящая от х) then write('принадлежит');
Else write(' не принадлежит');
Итоговая прога выглядит примерно так:
Var x,y: real;
Begin
Read(x,y);
If у<(8) and x<(8) and y>(x-8) then write('принадлежит');
Else write(' не принадлежит');
End.
Вот и всё. Я не вижу чему равны непонятки, поэтому замени 8 на соответствующие величины