Какие могут быть минусы у тел. звонка. кроме таво что нет на щету денег и 2 электронная почта минусы кроме таво что можно случайно удалить смс или электронную. почту
Ниже приведен вариант, когда программа запустится, но не выполнится:
program Zadacha; // удален символ 1
var a, b, c, d, s, p, r, q: integer;
begin // began заменен на begin
write (‘Ведите первое число=’, a); // В конце вместо , должно быть ;
writeln (‘Ведите второе число=’, b);// В конце вместо , должно быть ;
writeln (‘Ведите третье число=’, c);// В конце вместо , должно быть ;
writeln (‘Ведите четвертое число=’, d);
s:=a+b+c+d;
p:=a*b*c*d;
r:=a-b-c-d;
q:=a div b;
writeln ('Сумма=',s);
writeln ('Произведение=',p);
write ('Разность=',r);
write ('Частное=',q)
end.
Чтобы программа выполнялась нормально, нужно изменить ее следующим образом:
program Zadacha;
var a, b, c, d, s, p, r, q: integer;
begin
write ('Ведите первое число='); read(a);
writeln ('Ведите второе число='); read(b);
writeln ('Ведите третье число='); read(c);
writeln ('Ведите четвертое число='); read(d);
s:=a+b+c+d;
p:=a*b*c*d;
r:=a-b-c-d;
q:=a div b;
writeln ('Сумма=',s);
writeln ('Произведение=',p);
write ('Разность=',r);
write ('Частное=',q)
end.
Также остается неясным, что подразумевалось под "разностью" и "частным". Если "разностью" еще можно назвать выражение a-b-c-d, то a/b - точно не частное. Это только целая часть от деления a на b. Чтобы это было частным, нужно переменную q объявить как real:
/** libraries */
#include <iostream>
#include <cmath>
#include <vector>
#include <map>
#include <set>
#include <queue>
#include <stack>
#include <algorithm>
/** libraries */
using namespace std;
/** defines */
#define ll long long
#define ld long double
#define yes cout << "YES" << "\n"
#define no cout << "NO" << "\n"
/** defines */
int a[20];
void solve(){
ld sum = 0;
for(auto i: a)
sum += i;
ld av = sum / 20;
int res = 0;
for(auto i: a)
if(i < av)
res++;
cout << res;
}
signed main() {
ios_base::sync_with_stdio(false);
cin.tie(nullptr);
cout.tie(nullptr);
for(int i = 0; i < 20; i++)
cin >> a[i];
solve();
}
Ниже приведен вариант, когда программа запустится, но не выполнится:
program Zadacha; // удален символ 1
var a, b, c, d, s, p, r, q: integer;
begin // began заменен на begin
write (‘Ведите первое число=’, a); // В конце вместо , должно быть ;
writeln (‘Ведите второе число=’, b);// В конце вместо , должно быть ;
writeln (‘Ведите третье число=’, c);// В конце вместо , должно быть ;
writeln (‘Ведите четвертое число=’, d);
s:=a+b+c+d;
p:=a*b*c*d;
r:=a-b-c-d;
q:=a div b;
writeln ('Сумма=',s);
writeln ('Произведение=',p);
write ('Разность=',r);
write ('Частное=',q)
end.
Чтобы программа выполнялась нормально, нужно изменить ее следующим образом:
program Zadacha;
var a, b, c, d, s, p, r, q: integer;
begin
write ('Ведите первое число='); read(a);
writeln ('Ведите второе число='); read(b);
writeln ('Ведите третье число='); read(c);
writeln ('Ведите четвертое число='); read(d);
s:=a+b+c+d;
p:=a*b*c*d;
r:=a-b-c-d;
q:=a div b;
writeln ('Сумма=',s);
writeln ('Произведение=',p);
write ('Разность=',r);
write ('Частное=',q)
end.
Также остается неясным, что подразумевалось под "разностью" и "частным". Если "разностью" еще можно назвать выражение a-b-c-d, то a/b - точно не частное. Это только целая часть от деления a на b. Чтобы это было частным, нужно переменную q объявить как real:
program Zadacha;
var a, b, c, d, s, p, r: integer;
var q: real;
begin
...