Var a,b,c: integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('Все числа равны')
else
begin
a:=a-5; b:=b-5; c:=c-5;
writeln('a = ',a,' b = ',b,' c = ',c);
end;
end.
Пример:
7 5 6
<span>a = 2 b = 0 c = 1</span>
1) Обмен данными между ПК, и т.п.
Обеспечение системы
Загрузка программ в память
Организация диалога
2) Windows, Linux, Mac OS.
3)Обмен информацией командами или инструкциями между человеком и ЭВМ
4)В процессе практической работы на компьютере у пользователя периодически возникают проблемы, связанные как с работой системы в целом, так и отдельных устройств и программ: замедление работы, нехватка места на диске, ошибки выполнения программ, их зависание и т.п. Для выявления таких проблем, устранения причин их возникновения и обслуживания отдельных устройств в состав системного программного обеспечения включают сервисные программы (утилиты).
(Твой Одноклассник)
#include <iostream>
#include <stdlib.h>
using namespace std;
int main() {
const int n = 10;
int a[n];
double s=0;
int k=0;
srand(time(0));
for (int i = 0; i < n; i++) {
a[i]=-20 + (101.0 / RAND_MAX) * rand();
cout << a[i] << " ";
}
cout <<"\n";
for (int i = 0; i <= n; i++){
s = s+a[i];
}
s = s/n;
cout << "Среднее = " << s <<"\n";
for (int i = 0; i <= n; i++){
if (a[i]>s) k++;
}
cout << "k = " << k <<"\n";
return 0;
}
Пример:
<span>-18 80 77 66 74 44 62 78 45 0
Среднее = 50.9
k = 6</span>
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.