Составьте предложения по схемам на тему наши школьные дела, 1) две основы, 2) подлежащее сказуемое дополнение и дополнение, 3) определение подлежащее сказуемое дополнение!
begin Writeln('*TEST*'); randomize; answer:=10; k:=0; for i:=1 to answer do begin x:=Random(9)+1; y:=Random(9)+1; Write(x,' * ',y,' = '); Readln(input); if input=x*y then begin k:=k+1; writeln('RIGHT!'); end else writeln('WRONG! ',x,' * ',y,' = ',x*y); end;
Writeln('Correct answers - ',k); case answer of 10:Writeln('Excellent!'); 9,8:Writeln('Good!'); 6,7:Writeln('OK!'); 0..5:Writeln('Bad!'); end; end.
1) const f0=1; fk=10; h=0.5; var f:real; i:integer; begin f:=f0-h; writeln('Фунты Кг'); for i:=1 to round((fk-f0)/h)+1 do begin f:=f+h; writeln(f:4:1,f*0.4:7:3); end; end.
2) const f0=1; fk=10; h=0.5; var f:real; begin f:=f0-h; writeln('Фунты Кг'); while f<fk do begin f:=f+h; writeln(f:4:1,f*0.4:7:3); end; end.
3) const f0=1; fk=10; h=0.5; var f:real; begin f:=f0-h; writeln('Фунты Кг'); repeat f:=f+h; writeln(f:4:1,f*0.4:7:3); until f>=fk; end.
Учитель наблюдает, как ученики решают.
Директор подписала дипломы учителям.
Красивая одноклассница пришла с конфетами.