Ничего не сказано о структуре файла f. Предположим, что данные в нем хранятся в виде записей с полями:
model - марка автомобиля
nomer - номер
name - фамилия
Сам файл имеет полное имя d:\car.txt
Тогда программа будет иметь вид:
type
tcar=record
model:string;
nomer: string;
name: string;
end;
var
f:file;
car: tcar;
m:string;
begin
assign(f,'d:\car.txt');
reset(f);
write('Введите марку машины: ');
read(m);
while not eof(f) do
begin
read(f,car);
if m=car.model then
writeln(car.name,' ',car.nomer);
end;
close(f);
<span>end.</span>
Program chisla1;
uses crt;
var a,b : integer;
begin
write('Введите два числа: ');
Readln(a,b);
if a>b then writeln(a,'>',b);
if a
Ответ:
Объяснение:
#include <iostream>
using namespace std;
void cycle_for() {
int sum = 0;
for (int i = 0; i <= 80; i++) if (i % 4 == 0) sum += i;
cout << "Cycle for: " << sum << endl;
}
void cycle_while() {
int i = 0, sum = 0;
while (i <= 80) {
if (i % 4 == 0) sum += i;
i++;
}
cout << "Cycle while: " << sum << endl;
}
void cycle_do_while() {
int i = 0, sum = 0;
do {
if (i % 4 == 0) sum += i;
i++;
} while (i <= 81);
cout << "Cycle do while: " << sum;
}
int main() {
cycle_for();
cycle_while();
cycle_do_while();
}
Алгоритм действий на псевдокоде:
пока дробная часть ≠ 0:
>>> умножить дробную часть на 2
>>> добавить цифру слева от точки к ответу