Информатика
Информатика, 14.10.2019 08:30, MrFlash2008

Вопрос/Задача:

Построить программу в паскаль. "дано трехзначное число. определить, будет ли сумма его цифр больше 15." !

Ответы на вопрос

Ответ
Ответ разместил: Гость

ответ: а - vii

б - 0

в - xxx

объяснение:

Ответ
Ответ разместил: Гость

var b: array [1..10] of real;

      s: real;

      i: integer;

begin

  s: =0;

  for i: =1 to 10 do begin

    readln(b[i]);

    s: =s+b[i];

                          end;

  writeln(s);

end.

     

Ответ
Ответ разместил: Гость

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('ясь',s,7);

writeln (s);

readln;

end.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.

 

 

 

 

 

 

 

 

Ответ
Ответ разместил: 5284144

var a,b,c,d: integer;

beginread(d); a: =d div 100; b: = (d div 10) mod 10 ; c: =d mod 10;

if (a+b+c) > 15 thenwriteln('yes')elsewriteln('no'); readln;

end.

Похожие вопросы

Вопросов на сайте: