var i,max: integer; fio: string; x: array[1..5] of integer; f1,f2: text; begin assign(f1, 'out.txt'); assign(f2, 'out2.txt'); rewrite(f1); rewrite(f2); for i: =1 to 5 do begin writeln('daite fio ',i,'-ogo rabotnika'); readln(fio); writeln('daite otklad rabotnika ',i); readln(x[i]); writeln(f1, i,' ',fio,' ',x[i]); fio: =''; end; max: =x[1]; for i: =1 to 5 do if x[i]> max then max: =x[i]; writeln(f2, max); close(f1); close(f2); readln; end.
rabotatet! proveril v pascale
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемоеbegin //начало sum : = 0; i : = 1; s : = 5; //первое слогаемое = 5 while (sum < 324) do //пока сумма меньше 324 begin sum : = sum + s; //к сумме прибавляем слагаемое s : = s + 4; //увеличиваем слогаемое i : = i + 1; //увеличиваем кол-во слогаемых end; writeln ('слогаемых: '); // выводим кол-во слогаемых write (i); end. //конец
Поделитесь своими знаниями, ответьте на вопрос:
Три объекта на рисунке по своему значению не подходят к 5 остальным. составь два списка: 1.объектов. имеющих одинаковое назначение 2. свойств, которые есть у каждого из этих объектов. на рисунке тетради в крупную клетку, мелкую клетку, широкую линейку, узкую линейку , косую линейку, и три карандаша-синий, белый, черный