Var i,j,k:longint; begin for i:=1 to 1000 do for j:=1 to 1000 do for k:=1 to 10000 do if sqr(i)+sqr(j)=sqr(K)then begin writeln(i,' ',j,' ',k); {вывожу все тройки, можно убрать} if i+j+k=1000 then begin writeln('! ',i,' ',j,' ',k); {нужная тройка} exit; {прерывание программы} end; end; end.
Type sc=record name:string; fam:string; age:byte; school:integer; clas:string end; var i,n:integer; a:array[1..10] of sc; f:Text; begin Writeln('Читаем данные из файла input.txt'); Assign(f,'input.txt'); Reset(f); n:=0; while (not Eof(f)) and (n<10) do begin Inc(n); Readln(f,a[n].fam); Readln(f,a[n].name); Readln(f,a[n].age); Readln(f,a[n].school); Readln(f,a[n].clas) end; Close(f); Writeln('Принято записей: ',n); Writeln('Контрольный вывод'); for i:=1 to n do begin Writeln('Школьник ',i,':'); Write(a[i].name,' ',a[i].fam,', '); Write(a[i].age,' лет, школа №',a[i].school); Writeln(', класс ',a[i].clas) end end.
Тестовое решение: Читаем данные из файла input.txt Принято записей: 3 Контрольный вывод Школьник 1: Иванов Иван, 14 лет, школа №126, класс 7б Школьник 2: Петров Петр, 13 лет, школа №18, класс 6а Школьник 3: Семенова Валентина, 15 лет, школа №52, класс 8г
Файл input.txt для тестового решения находится во вложении.
#include <iostream>
#include <cmath>
#include <algorithm>
#pragma GCC optimize("Ofast")
#define ll long long
#define ld long double
using namespace std;
signed main() {
ios_base::sync_with_stdio(0);
cin.tie(0);
cout.tie(0);
srand(time(NULL));
for(int i = 0; i < 5; i++){
ld x = rand()%10001;
x /= 10000;
cout << x << " ";
}
}