#include <iostream>
#include <Windows.h>
using namespace std;
void main()
{
setlocale(LC_ALL, "Russian");
float a, b, c;
Start:
system("CLS");
cout << "Введите 3 действительных числа:\n";
cin >> a;
cin >> b;
cin >> c;
if (a>b && a>c)
cout << "Вот что получится если удвоить ваши числа: " <<a*2<< b*2<<c*2<<"\n";
else
cout << "Заменяю ваши числа обсолютными значениями: " <<abs(a)<<abs(b)<<abs(c)<< "\n";
Sleep(5000);
goto Start;
}
var x, y, z: real;
i: integer;
begin
write('проходной = ');
readln(x);
for i := 1 to n do begin
write('оценка ', i, ' = ');
readln(z);
y := y + z;
end;
if y/n >= x then
writeln('поступил')
else
writeln('не поступил');
end.
// Вторая
var i, k: integer;
a, b: string;
begin
write('k = ');
readln(k);
write('строка = ');
readln(a);
for i := 1 to Length(a) do
if i mod k > 0 then
b := b + a[i];
writeln(b);
end.