begin for i := 1 to 4 do begin readln(a); b := a; k := a; while (b > 0) do begin if (b mod 10 = 5) then begin k := 0; end; b := b div 10; end; sum := sum + k; end; writeln(sum); end.
1. а) Петя едет в автобусе, читает книгу и насвистывает. б) Петя насвистывает, когда едет в автобусе или читает книгу. в) Петя едет в автобусе и читает книгу или насвистывает. г) то же, что и а). д) Петя едет в автобусе или читает книгу и насвистывает. 2. а) Число 5-простое = 1. б) Луна-спутник Венеры = 0. в) Число 5-простое и Луна-спутник Венеры = 0. г) Число 5-простое или Луна-спутник Венеры = 1. д) Если число 5-простое, то Луна-спутник Венеры = 0. е) Число 5-простое тогда и только тогда, когда Луна-спутник Венеры = 0. 3. а) 1999<2000 и 1999>2000 б) Петя решил все задания контрольной работы и Петя не решил все задания контрольной работы в) Неверно, что луна спутник Земли и Неверно, что луна не является спутником Земли г) Мишень поражена не первым выстрелом и Неверно, что мишень поражена не первым выстрелом. 4. А=1, В=0, С=1, Д=0.
Рассматриваем движение тела, брошенного под углом к горизонту без начального ускорения. Уравнения движения тела в осях координат известны из физики: Также известна формула для определения времени движения тела до его падения (т.е. возвращения на исходную высоту, которая совпадает с осью X): Считаем, что в начальных условиях задается количество точек, в которых нужно найти значения пути пройденного в осях координат.
uses Crt; const g=9.81; pi=3.14; var alpha,ar,v0,t,x,y,tmax,ht,v0x,v0y:real; n:integer; begin ClrScr; Write('Vvedite alpha, v0: '); Read(alpha,v0); Write('Chislo tochek= '); Read(n); ar:=pi*alpha/180; v0x:=v0*cos(ar); v0y:=v0*sin(ar); tmax:=2*v0*sin(ar)/g; ht:=tmax/n; t:=ht; while t<=tmax do begin x:=v0x*t; y:=v0y*t-g*sqr(t)/2; Writeln('t=',t:6:3,' x=',x:8:3,' y=',y:8:3); t:=t+ht end; ReadKey end.
var
i, k, b, a, sum: integer;
begin
for i := 1 to 4 do
begin
readln(a);
b := a;
k := a;
while (b > 0) do
begin
if (b mod 10 = 5) then
begin
k := 0;
end;
b := b div 10;
end;
sum := sum + k;
end;
writeln(sum);
end.