М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dennnn2222222
dennnn2222222
04.07.2022 03:57 •  Информатика

На си дан текстовый файл, содержащий целые числа. переписать в новый текстовый файл только те числа, которые принадлежат заданному интервалу [a, b]. подсчитать общее количество таких чисел и добавить эту информацию в конец полученного файла.

👇
Ответ:
Ljjr6958der8cox45
Ljjr6958der8cox45
04.07.2022
#include <stdio.h>
main()
{
int x;
int n=0;
int a=20;
int b=50;
FILE *fin, *fout;
fin = fopen( "input.dat", "r" );
fout = fopen( "output.dat", "w" );
while (fscanf(fin, "%d", &x) == 1) {
  if ((x >= a)&&(x <= b)) {
    fprintf ( fout, "%d\n", x );
    n++;
  }
}
fprintf ( fout, "%d\n", n);
fclose ( fout );
fclose ( fin );}

Пример:
Файл input.dat
58
43
12
97
21
65
34
72
53

Файл output.dat:
43
21
34
3
4,7(74 оценок)
Открыть все ответы
Ответ:
baikolepus
baikolepus
04.07.2022
Program Ulitka;
Var SunnyDay: Array [1..30] Of Boolean;
a, b, c, i: Integer;
Begin
WriteLn('a = ');
ReadLn(a);
WriteLn('b = ');
ReadLn(b);
b := b * 100;
Randomize;
For i := 1 To 30 Do
Begin      
If Random(2) = 1 Then
SunnyDay[i] := True
Else
SunnyDay[i] := False;
End;
For i := 1 To 30 Do
Begin  
If SunnyDay[i] = True
ThenBegin    
a := a + 2;    
If a > b Then    
a := b;  
End  
Else  
Begin   
a := a - 10;    
If a < 0 Then    
a := 0;  End;  
End; WriteLn('Дни месяца были таковы:');
For i := 1 To 30 Do
Begin
If SunnyDay[i] = True Then
WriteLn(i, '. Солнечный')
Else
WriteLn(i, '. Пасмурный')
End;
WriteLn('К концу 30 дня местоположение улитки равно ', a, ' см над землей');
End.
4,4(89 оценок)
Ответ:

PascalABC.NET 3.3

program journal;

var

 sum, mark, count, n: integer;

 check: boolean;

begin

 sum := 0;

 check := true;

 count := 0;

 writeln('Введите количество оценок: ');

 readln(n);

 if (n > 0) then begin  

 while (count <> n) do

 begin

   readln(mark);

   inc(sum, mark);

   if (mark < 4 ) then check := false;

   inc(count);

   if (count = n) then writeln('Ввод окончен!');

 end;

 end else writeln('Error!');  

 if ((check) and (sum > 0) and (n > 0)) then writeln('Ты молодец!');

end.

4,5(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ