Program A_1; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i; until i=n; writeln('Сумма чисел от 1 до ',n,' равна ',sum); end.
Program B_2; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i*i; until i=n; writeln('Сумма квадратов чисел от 1 до ',n,' равна ',sum); end.
Program V_3; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; if (i mod 2 = 0) then sum:=sum+i; until i=n; writeln('Сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum); end.
Program G_4; uses crt; Var i,n,sum: integer; begin i:=9; sum:=0; repeat i:=i+1; sum:=sum+i; until i=99; writeln('Сумма всех двузначных чисел равна ',sum); end.
Жили-были Компьютер, Мышка и Клавиатура. Они были брат и две сестры, монитор был злюкой : 3. Монитор ни в чем не уступал Компьютеру, мышке и клавиатуре. Однажды произошло соревнование, которое составил Господин Интернет ,, Арифметические действия над числами". ,,Первое задание!" - торжественно начал произносить Интернет, "Вам надо решить следующий пример". Пример был таков: 9.015 - 118 × 34 + 48. 633 : 39 = ? Все начали напряженно решать этот пример. Компьютер, Мышка и Клавиатура работали вместе - на Компьютере было видно, что они пишут, с Клавиатуры и ее букв они пишут пример и действия, а Мышка следила за правильностью цифр в примере, и решать пример. А наш злой Монитор ни с кем не решал этот пример, он надеялся только на себя. Вот наши Компьютер Мышка и Клавиатура решают последнее действие, а Монитор и первое не решил! И вот наша компьютерная семейка решила этот пример. Все видели как Монитор еще думал над первым действием. Но так как время было уже растрачено, Монитору пришлось сдать решение. Мистер Калькулятор начал проверять работы, он посмотрел работу Монитора ,,Ужасно! В жизни не видел такого!"-воскликнул Калькулятор. Монитор тяжело вздохнул, ему было очень грустно. Компьютер, Мышка и Клавиатура победили, но отдали приз Монитору и сказали ,,Забирай приз, он нам все равно не нужен. Ведь самый ценный приз - это дружба!"
//Поскольку вы не указали структуру файла и язык программирования, то подберу их сам.
//ЯП: C#
//Структура: рост/имя/вес/страна проживания
Код:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
namespace Prog
{
class Program
{
static void Main(string[] args)
{
string location = "C://Test//Persons.txt";
try
{
int size = File.ReadLines(location).Count();
if (size > 0)
{
List<string> person = new List<string>();
string[] tallestPerson = new string[4];
int maxHeight = -1;
int height = 0;
int index = 0;
StreamReader PersonsReader = new StreamReader(location, Encoding.Default);
for (int i = 0; i < size; i++)
{
person.Add(PersonsReader.ReadLine());
height = Convert.ToInt32(person[i].Remove(person[i].IndexOf("/")));
if (height > maxHeight)
{
maxHeight = height;
index = i;
}
}
string tmp = person[index];
int paramIndex = 0;
for (int j = 0; j < tmp.Length; j++)
{
if (tmp[j] != '/')
tallestPerson[paramIndex] += tmp[j];
else
paramIndex++;
}
Console.WriteLine("Самый высокий человек: " + tallestPerson[1]);
Console.WriteLine("Рост: " + tallestPerson[0] + " см");
Console.WriteLine("Вес: " + tallestPerson[2] + " кг");
Console.WriteLine("Страна проживания: " + tallestPerson[3]);
}
else
{
Console.WriteLine("Файл пустой!");
}
}
catch (Exception)
{
Console.WriteLine("Ошибка! Файл не нейден, либо нарушена его структура!");
}
finally
{
Console.ReadKey();
}
}
}
}