Uses crt;
var a,b,c,s,k : integer;
begin
writeln('Введите 3 числа :');
readln(a,b,c);
if a > 0 then
begin
k:= k + 1;
s:= a;
end;
if b > 0 then
begin
k:= k + 1;
s:= s + b;
end;
if c > 0 then
begin
k:= k + 1;
s:= s + c;
end;
writeln('Сумма чисел = ' , s);
writeln('Количество положительных чисел = ', k);
end.
Очень интересные задания)))
179 - последняя
180. Первую строку наверное не надо писать. Со второй можно начать. Р - разбойник, К - купец.
181. Стрелками показано откуда и куда переливаем
программа для паскаля
uses crt;
var a,b,s:real;
begin
clrscr;
write ('a='); read (a);
write ('b='); read (b);
s:=a+b;
if s>100 then writeln (s/2)
else writeln (2*s);
end.
C++
<span>#include<bits/stdc++.h>
using namespace std;
string s;
main()
{
cin>>s;
if(s[0]>96)
s[0]-=32;
cout<<s<span>;
}
PascalABC.NET
</span></span><span>var s:string;
begin
read(s);
s[1]:=UpperCase(s[1]);
writeln(s);
end<span>.
</span></span><span>
</span>
#include "pch.h"
#include <iostream>
#include <clocale>
using namespace std;
int main() {
setlocale(LC_ALL, "");
int n, k, l;
cout << "Введите значение n: ";
cin >> n;
cout << "Введите значение k: ";
cin >> k;
cout << "Введите значение l: ";
cin >> l;
int *arr = new int[n];
cout << "Заполните массив: ";
for (int i = 0; i < n; i++) {
cin >> arr[i];
}
int sum = 0;
for (int i = k; i <= l; i++) {
sum += arr[i];
}
cout << "Сумма элементов массива с номерами от K до L включительно = " << sum << endl;
return 0;
}