Var
sum, a, b: integer;
begin
sum:=0;
readln(a);
readln(b);
sum:=a+b;
if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;
writeln(sum);
end.
Ответ:
Проблемы в файле установщик. Оригинальный ли софт?
Объяснение:
Var y: integer;
begin
write('Введите трехзначное числo: y = ');
readln(y);
writeln('Число x = ',y mod 100 div 10,y div 100,y mod 10)
end.
<h2>[Код написан и выполнен на языке С++]</h2>
#include <iostream>
#include <string>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
string N, t;
cout << "Введите строку, содержащую символ '*': ";
cin >> N;
for(int i = 0; i < N.length(); i++){
if(N[i] != '*'){
t.push_back(N[i]);
}
}
cout << endl << t;
return 0;
}
<h2>Пример:</h2>
Введите строку, содержащую символ '*': c*o*p*y
copy