Ну, раз заменять предложение, то...)
var a: string;
begin
readln(a);
if (a = 'Не то предложение') then a := '...';
writeln(a);
<span>end.</span>
компьютер
↓ ↓ ↓ ↓
процессор память устройства ввода устройства вывод
↓ ↓
внутр пам внешн память
↓ ↓
носитель инф накопитель
1600 - 80 = 1520 кількість учнів які займаються
1520 - 950 = 570 учнів,які не займаються кружками, а ходять в спорт. секції
1520 - 1052 = 468 учнів які не ходять в спорт.секції, а займаються кружками
950 - 468 = 482 учнів які можуть ходити одночасно
1052 - 570 = 482 учнів які можуть ходити одночасно
Відповідь: B)482;
Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>
Программа на C++:
#include <iostream>
using namespace std;
int main()
{
int n, res;
cin<<n;
int a[n];
res=0;
for (int i=0; i<n; i++;)
{
if (a[i]%10==2 and a[i]>res)
res=a[i];
}
cout<<res;
}