Регистрация
conyp2005
16.11.2022 05:41
Информатика
Есть ответ 👍

Определить количество строк в текстовом файле, в которых есть символ «! ». напишите плз код на =3

133
237
Посмотреть ответы 2

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

лаброри
лаброри
4,6(37 оценок)
//pascal abc.net версия 2.2 сборка 790 var f: text; a,i,n: integer; ars: array of string; begin; assign(f,'text.txt'); reset(f); while not eof(f) do begin; inc(n); setlength(ars,n+1); readln(f,ars[n]); end; close(f); for i: =1 to n do if pos('! ',ars[i])< > 0 then a: =a+1; writeln(a); end. пример text.txt: 890 823 23 232 23 436434! 346643 21пример вывода: 1
анарка3
анарка3
4,5(46 оценок)
Var a,b,c: integer; x1,x2,d: real; begin writeln  ('введите коэффициенты уравнения: '); readln  (a,b,c); if a=0 then writeln('уравнение не квадратное') else begin  d: =b*b-4*a*c;   if d< 0 then writeln  ('уравнение не имеет действительных корней') else if d=0 then begin x1: =-b/(2*a); writeln('x1=x2=',x1: 0: 2);     end  else if d> 0 then begin x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); writeln('x1=',x1: 0: 2,'   x2=',x2: 0: 2); end; end; end.

Популярно: Информатика