Var a:array[1..10] of integer;
i:integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.
Ответ:
Объяснение:слово дорогой заменится на слово ветер.
Find what - найти
Replace - заменить
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Введите начальную скорость снаряда, расстояние до стены, высоту стены');
var (v,S,h):=ReadReal3;
var A:=ReadReal('Введите угол наклона ствола пушки');
if v<=0 then begin
Writeln('Скорость должна быть положительной');
Exit
end;
if v>1000 then begin
Writeln('Скорость слишком велика');
Exit
end;
if S<=0 then begin
Writeln('Расстояние должно быть положительным');
Exit
end;
if h<=0 then begin
Writeln('Высота стены должна быть положительной');
Exit
end;
if A<=0 then begin
Writeln('Пушка не должна стрелять в землю');
Exit
end;
if A>=pi/2 then begin
Writeln('Пушка направлена не в сторону стены');
Exit
end;
var L:=S*Tan(A)-9.81*S/(2*v*v*Sqr(Cos(A)));
if L>h then begin
Writeln('Снаряд не попал в стену...');
Exit
end;
if L<0 then Writeln('Снаряд не попал в стену...')
else Writeln('Попал!!!')
end.
<u>Пример</u>
Введите начальную скорость снаряда, расстояние до стены, высоту стены
300 500 8.5
Введите угол наклона ствола пушки 0.2
Снаряд не попал в стену...
3*3=9
9*3=27
27-2=25
25-2=23
23*3=69
ответ: 22112
//Допустим что Вы имели в виду C++
#include <iostream>
using namespace std;
int main(){
int a,a1,a2,a3;
cin>>a;
a1=a%10;
a=a/10;
a2=a%10;
a=a/10;
a3=a%10;
if((a1+a2+a3)%2==0){
cout<<"true";
}else{
cout<<"false";}
cin.get();
cin.get();
return 0;
}
Пример ввода:
123
Пример вывода:
true
