Каждое утро майор знаменский идет в тир и делает пять выстрелов через плечо. если он набирает 50 очков, то вечером идет с зиночкой в ресторан, а если меньше, то на тренировку в тир. написать программу, которая выдает планы майора на вечер.в паскале
//Pascal ABC.NET v3.1 сборка 1219 //Как я понял, количество очков случайно
Var a,i,s:integer; begin randomize; for i:=1 to 5 do begin a:=random(11); writeln(i,' выстрел -',a); s:=s+a; end; writeln('Сумма=',s); if s=50 then writeln('Идет с Зиночкой в ресторан') else writeln('На тренировку в тир'); end.
Пример работы программы: 1 выстрел -3 2 выстрел -10 3 выстрел -7 4 выстрел -8 5 выстрел -0 Сумма=28 На тренировку в тир
const m=6; // строк n=9; // столбцов var a:array[1..m,1..n] of integer; i,j,k1,k2,s,k:integer; begin Writeln('Введите границы диапазона: '); Read(k1,k2); Randomize; s:=0; k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(199)-99; // [-99;99] Write(a[i,j]:4); if (a[i,j]>=k1) and (a[i,j]<=k2) then begin Inc(k); s:=s+a[i,j] end end; Writeln end; Writeln('Отобрано элементов: ',k,', их сумма равна ',s) end.
Program n1; function pr(a:longint ):boolean; var d:longint; begin if a<2 then pr:=false else begin pr:=true; for d:=2 to round(sqrt(a)) do if a mod d=0 then pr:=false; end; end; function isch(var x: longint ): boolean; var s: longint; begin s:=0; isch:=false; while ( x<>0 ) do begin s := s + (x mod 10); x:= x div 10; end; if s mod 2=0 then isch:=true; end; var k,n,i,c: longint; y: boolean; begin readln(k,n); if (k>=2) and (n<=100000) then begin y:=true; for i:=k to n do begin c:=i; if (pr(c)) and (isch(c)) then begin write(i,' '); y:=false; end; end; if y then write('0'); end; end.
//Как я понял, количество очков случайно
Var
a,i,s:integer;
begin
randomize;
for i:=1 to 5 do
begin
a:=random(11);
writeln(i,' выстрел -',a);
s:=s+a;
end;
writeln('Сумма=',s);
if s=50 then writeln('Идет с Зиночкой в ресторан') else writeln('На тренировку в тир');
end.
Пример работы программы:
1 выстрел -3
2 выстрел -10
3 выстрел -7
4 выстрел -8
5 выстрел -0
Сумма=28
На тренировку в тир