Var
O:string;
i,k:byte;
B,pO:array[1..3] of string;
Begin
B[1]:='2 * 2 = 5 ?';pO[1]:='нет';
B[2]:='Оператор Read вводит данные?';pO[2]:='да';
B[3]:='СССР победил в войне 1812 года?';pO[3]:='нет';
k:=0;
For i:= 1 to 3 do
Begin
WriteLn(B[i]);
ReadLn(O);
O:=LowerCase(O);
While (O <> 'да')and(O <> 'нет') do
Begin
Write('Попробуйте ещё раз: ');ReadLn(O);
O:=LowerCase(O);
End;
if pO[i] = O then k:=k+1;
End;
WriteLn('Количество правильных ответов: ',k);
End.
Пример:
Сколько яблок соберет Петя за n дней, если в день собирает по 5 яблок.
ПАСКАЛЬ:
var a,i,n:integer;
begin
readln(n);
for i:=1 to 5 do
a:=a+5;
write(a);
end.
JAVA:
import java.util.Scanner;
class Main{
public static void main(String args[]){
Scanner scn = new Scanner(System.in);
int a = scn.nextInt();
int b = 0;
for (int i = 0; i < a; i++){
b = b + 5;
}
System.out.println(b);
}
}
1. Пропущен пробел в "int i, s;" и в "int i=0;"
2. При "int s=0;" и "int i=0;" не надо ставить "инт". То есть: "s=0;" и "i=0"
приготовление обеда - повар
уборка квартиры - уборщица
уборка мусора во дворе - дворник
стирка - прачка
перевозка пассажиров - таксист, водитель
обучение детец в школе - учитель
продажа железнодорожных билетов - продавец
поддержание температуры в помещении -
прием зачета -
доставка корреспонденции - курьер